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Elhobbit f. <t«o by 



Para aquellas personas que picnsan 
que los libros se comen y que las ie- 

fastos de la humanidad, hay que 
plicar que «EI Hobbir* es un libra 
crito porJ.R.R. Tolkien y fue ci pre- 
El H bh't deeesor dc la trilogia de «EI sefior de 
libra de ]'. R. '* s '■ in ' llos * <l ue ' P csc a su aniigiiedad 
Ti-'Jkii-ii til sigue sicndo uno dc los n " 

■ se ha ta jugar bien al Hobbit convien 
basado el berse lefdo previamente el text 
proprjuudor que el jucgo preiende crear una n 
'**■ cion del libra. Para aquellos que 



hayan letdo incluimos 
un breve resumen para que se hagan 
una idea de que va el jucgo. Dc todos 
modos se aconseja la lectura del libra, 
aparte de por el intcrds que puede te- 
ner en la resolution del jucgo, por su 



leidos. Pa- Resumen del Hohbit 



Bilbo Bolson e 
(pequerio ser cor 
maximas ambitic 



n apacible hob bit 
ies peludos cuyas 
sen la vidasonel 




r prishlcriiii-s) que Q^IT. 



un dia cualquir 
mago Gandalf que le propone cscapar 
de la rutins y correr avcnturas. Bilbo 
se nicga, pero Gandalf con la ayuda de 
sus amigos lus inanos, 1c c 
Bilbo en union de Thorin ! 
marcha. Despues de mil 
consiguen lescacar un tesoro guardado 
un dragon y un anillo magico (ha- 
invisible al que lo usa) guardado 
hasta enronces pot el malvado Go- 



Co mo jugai 

El Hobbit es 
sadonal: esto quietc decirque nos mo- 
vemos y ejecutamos accioncs teclean- 
dofrasessencillasjnaturalmentecn in- 
gles, si usted no sabe ese idioma puc- 
dv r-a (l(.-.s|i|i:n-rniii i iui-'n! ,■. hi- iv.il - 
cianitos). Las frases se componen nor- 
malmcnte de un verbo y un susianti- 
vo, porcjcmplo para abrirlaccsta que 
nos encontramos al principio de jue- 
go tecleamos .OPEN CHEST, scgui- 
do, naturalmente, dc la ttdft ENTER. 
Tambien podemos letlear un verbo, 
s61o si la action se enticnde pot si sola 
sin nctesidad de susramivo. .CLIMB, 
hara que ctepemos sin neccsidad de in- 
dicar adonde. 

Cuando el ordenador cste csperan- 
do una otden aparcccra cl stmbolo 



r.que. 



L«K.< 



i. En 



ese caso podemos escribir la ftase y 
minarla pulsando ENTER. Si solo apa- 
rece el cutsor y no aparece el « > » quie- 
re deeir que no se ha impteso lodo por- 
que no cabfa en la pantalla. el orde- 
nador est a esperando a que se pulse 
una lecla para mostrar el resco. 

Comienzo del juego 

El jucgo se carga con un LOAD "" 
y pulsando el PLAY en el cassette (na- 
turalmente despues dc poncr la cinta 
en el). Despues dc unos cuamos mi- 
liums aparece la palilalia de presema- 
cion. Cuando se naya acabado de cat- 
gar cl programa (dejen de aparctcr 
bandas a rayas en los latcialcs) pulse 
una letta y podia vet la ptimera pan- 
istlEu (ligura I) que nos mucstra la cue- 
va donde vive Bilbo. Desde aqui em- 
pieza nui 



El juego transcurre per multiples lu- 
gares. Paia trasladamos de uno a otro 
podemos utiii; 



"N" 



, "E" 



"W" 



'NW' 

te, "SW" sudeste. "U" arribay "D" 
abajo. Dada la gran cantidad de luga- 
res que visitamos cs aconsejable hacersc 
un mapa ton todos los lugares que vi- 
sitamos y unirlos con los caminos que 



ibramos, indicando la direccior 
para ir de un lado a otro. Et 
la figura 2 h-mos dihujado la.- seis pri- 
me ras .nasillas» ini'litando los ram inn: 
que losunen. Hay que tencren cuen 
Ta que en much: 



do a otro por el none, puede que pa- 
ra volver de estc ultimo al piimero no 
sea la dircrtion sur. inclitso puede ocu- 
rrir que no se pueda velvet. Es una ne- 
ccsidad, sobre rodo cuando esta el jue- 
go avanzado, tomplcrarel mapa indi- 
cando las direccioncs y lugares. 

Un conscjo muy interi-same tonsis- 
re en ir salvando cl juego con el co- 
mmidn SAVH .Si aljiuna vez le matan 
(tosa poco menos que inevitable) no 
tendra que rcpetir todo el tamino, si- 
no que al ponerse en marcha cl juego, 
teclce LOAD y vuelva a leer los datos 
de la position donde salvo cl jucgo y 
por tan to solo tendra que continuar 
desde ahl. Mas intercs-nte es salvar el 
juego durante varias eiapas y, si des- 
tubrimos que hate cinco movimiemos 
nos metimos en un jaleo del que no 
podemos sulir. hasia con volver a car- 
gar la version del momento anterior a] 
que nos equivocamos. 

Resumen de los comandos 
Aparre de los comandos de 






n los siguicn- 



EXAMINE: cxaminar algo. HELP: 
da una ayuda, aunque a veces es ne- 
ccsario scr clarividenie para comprcn- 
dcrla. INVENTORY: nos da una list* 
de lo que llevamos, LOAD: carga el 
juego dc data si lo hemos salvado pre- 
viamente con el comando SAVE (no 
confunda esros los comandos del hob- 
bit con los correspondicntes del BA- 
SIC; micnttas estos ulrimos salvan un 
programa, los del babbit graba los da- 
tos del juego si los tecleamos como 
cualquier otra orden). LOOK: mira a 
nuesrro alrededor. PAUSE: deja el jue- 
go parado hasta que se pulse una te- 
cla (muy mil mientras Hainan al tele- 
fono). QUIT: abandona el juego en 
curso y vuclve a empezar. SCORE: da 
la pumuarnin que hemos tonseguido. 
BREAK; rompe algo. CLIMB: rrepa. 
CLOSE; cicrra algo. CROSS: nos hace 
cruzar (por ejemplo un no), DIG: ex- 



cavar en algo. DROP: dejar caer, 
DRINK: beber. EMPTY: vadar. EN- 
TER: entrar en alglin sitio. EAT: co- 
me:. FILL: llenar. FOLLOW: seguira 
alguien. GIVE: dar. GO: irse. KILL: 
internal maiar. LOCK: cerrar un ce- 
rrajo. PICK: coger. PUT: poner algo, 
OPEN: abrir una puma o similares. 
RUN: corrcr, SAY: deck algo (que de- 
be ir entre comillas al final) a alguien 
(por ejemplo SAY TO GANDALF 
"GIVE ME THE MAP 11 ). SHOOT: 
disparar. SWIM: nadar. TIE: atar (una 
cuerda, por ejemplo). TAKE: lo mis- 
mo que PICK. CARRY: acarrear per- 
sonas, cosas...). THROW: arrojar. 
TURN: girar. UNLOCK: abrir un ce- 
rrojo. UNTIE: desacar. WEAR: poner- 

Todas estas acciones pueden ir uni- 
'das con sujetos y adjenvos, se puede 
lanzar algo hacia arriba o a traves del 



Partiendo de la cueva 

Como muchas personas no sabran ni 
c6mo ponerse en marcha, en esta par- 
re vamos a dar una explicadon mas ex- 
haustiva que aclare el manejo, 

Al cargar el juego aparccemos en la 
cueva con la puerta cerrada (figura 3) 
y Thorin y Gandalf haciendonos com- 
pares. Gandalf nos da un mapa que 



no se puede leer (por lo menos de mo- 
mento). Para salir de la cueva debemos 
abrir la puena (OPEN DOOR) si no 
la abre antes Gandalf y decir GO (ve) 
oE(csCe). Aquiapareceun terrenode- 
senico {gloomy empty land). Desdc- es- 

devuelve a la cueva y otros dos nos lie- 
van al ttrolls clearing' y otro nos llcva 
al thidden path* . El nombre de los si- 
[ios se da por la description que da el 
programs. 

EI claro de los Trolls 



Este sitio cs especial menre peligro- 
so ya que los dos trolls que habiran en 
el tienen una especial predilection por 
<■! filcte de hobbil. Abora bien, es sa- 
bido que los trolls se vuelven de pie- 
dra cuando amanerc y la Have que lie- 
nen con ellos es necesaria postetior- 
mentc, para conseguirla pasemos por 
aqui rapidamenic (llegar y salir con el 
siguiente comando sin hacer nada en 
medio) y luego espcrar en otro sitio a 
que amanezca, entonces podemos vol- 
ver y coger la Have. Tenga en cuenta 
que es imprest indible pasar por el claro 
para que amanezca y pueda volver. 



Hidden Path (figura 5) 

No ticne nada de especial, pero hay 
una puerta al none que para serabicrta 



necesita cierta Have bastante grande. 
( ( -adivina cual?). 
Troll's Cave (figura 6) 

Esta caverna esta detrds de la puer- 
ta de piedta que acabamos de mencio- 
nar. Aqui hay un par de cosas que nos 
conviene coger para luego. Esto ulti- 
mo lo podemos hacer sencdlamenle 
con TAKE ML (coge todo). 

Rivendel 

Aqui e ocon tram os al buen amigo 
Elrond. Esie nos puede echar una ma- 
no en un par de cosas, Como descen- 
diente de Eltos es capaz de intcrprelar 
un mapa que anda rondando, este ma- 
pa solo nosindicadossiriosque, pien- 
s habcr descu- 



Esto r 



to, ya 



icuaniio J-iiroin.! 
lee el mapa, y si no lo hace no podria- 
mos llegar a ellos. Ademas de esto si 
esperamos durante un tiempo 
(WAIT), en este sitio se nos dara co- 
mida que podemos consumir para re- 
poner fuerzas o llevar con nosotros para 
almorzar posteriormentc. 

Si salimos de Rivendel por el este 
podemos ir a parar a dos sitios distin- 
tos dependiendo del humor del orde- 
nador. El primero son las imisly 
i y el segundo es el zctungv- 
; path*. 




6. Cjvcrru de los Trolls. 




uon none u sur ircmos a parar a mi 
laberinio de tntirmw path* (no con- 
fundircon tnarrow place*), en este la- 
berinto esta escondida una Have de 



Narrow Place (figura 7) 
Aunque muy aparatoso y 

mi [ii.tr- iiii!t>L!riLi diiicultad y ■ 

; solo podemos 
jlver a las smhty 
thard dau^rnui 

path. . 

Large dry cave 

En esta cueva no hay nada c n espe- 
cial except o una pcqucrta grieta y si es- 
pcramos un taco veremos como aparc- 



Dark stuffy passage 



tnendofladfi es acRfait en el iGobling 
Dungeon., uno de los sitios con mas 
diffcil salida si no se recibe alguna 



AquS estS la ayuda que del 

. En el suelo de la ca- 
veraa hay arena, la arena no se puede 
comer, beber o coger, pero sf se pue- 
de excavar en ella. Si sorprendente- 
mentc encuentra una trampilla (trap- 
door) puede probar a romperla (no In 
interne con la espada, trae resultados 
tiinestos) peco eslo no sera posible si 
esta bajo de fuerzas (suponemos que 
sabc como se coge fuerzas cuando se 
esta famelico). Debajo de la trampilla 
hay una Have que Thorin ticne tenden- 
cia a coger, aunque lucgo le podemos 
pedir que nos la de. 

Para salir de aquf primero tenemos 
que abrir la ventana, pero como somos 
demasiado bajos debemos hacer que la 
abia un buen amigo. Pero como scgui- 
mos siendo demasiado bajos no pode- 
mos pasar por ella. Para solucionar es- 
to existcn dos sistemas: el primero con- 
sists en decirk a nucstro amigo: 

SAY TO THORIN "GO.SW. 
OPEN" 

Esta orden puede que no acme la 
primera vez y que Thorin (o Gandalf 
en su caso) vuelva por la ventana, pe- 
ro si la repetimos veremos que al cabo 
de un tiempo alguien abre la ptietla. 

El otro sistema consiste en. despues 
deabri ' 



SAY TO THOKIN "CAkRY Mb 



Los Goblins 

Son tremendamemc peligrosos v c- 
preferable no luchar con-ellos. En case 
de necesidad podemos decirk- a The- 
rm o a Gandalf que pelecn con noso- 
tros: no dejan de ser un incordi 
cavemas. P-jr-j quuiimoslos de encims 
si tenemos el anillo basta con poner- 
noslo (esto tambien sirve para deso- 
rientar a Thotin que tampoco nos ve' 
mene que de vez en cuando nos k 
varnos vi poner ya que sc suele qui- 
el soli.i, h;u"iei'»J(iiios visibles. 



\v. 



Cavern with torches 

Situada a la salida de la tgoblins 
dungeon- no tiene nada de especial, 
si queremos coger una anrorcha y llc- 
vamos la cucrda basta decir: TIE RO- 
PE TO TORCH. GET ROPE 

La espada 

La espada es en realidad bastante 
debil y si inten tamos romper algo con 
ella lo mas probable es que se rompa 
ella tambien. Su uso mas importantc 
es como fuente de luz ya que sirve 
mo limema. si la rompemos nos q 





Esce asqueroso ser aparece en las ca- 
vernas y nos suelc quitar el anillo. 
Tambicn nos pregunta accrtijos. Dos 
solutions son "MAN" y "SHA- 
DOW" (adivine usted a que atertijo 
pertenecen). Pcco si no contestamos 
nada y le ignoramos no pasa nada, 
mientras que si le contestamos crronca- 
menie nos pueden pasar cosas muy 
feas. asf que elija lo que quiera hater. 

La salida de las cavernas 

ttaremos ton la sgoblins back doors, (es 
decir, la puerta crasera de \os goblins)', 
para salir basia ton abrirla y subir. 

Comida 

La tomida la podemos encontrar en 
dos sitios; en Rivendel nos la ofrece El- 
rond como comentamos antes y en la 
casa de Bcorn (Beam 's house). Detras 
de una cortina hay un armario, den- 
tro de este armario hay comida, (aten- 
cion, esto s6lo pasari la primcra vez, 
las siguientes ya no habta comida). 

Gate to mirkwood (figura 9) 

Aunque parece presagiar cxtrafios 
sucesos esta puerta carece de cualquier 
interns (exception hecha de su belle- 
za) por lo tamo, siga adelante. 

Dark dungeon in the evelking 
balls (figura 10) 

forma al 'goblins dungeon* aunque de 
color rojo en vez de amarillo) es senci- 



llo. Simpiemcntc esperc (como se le 
aconseja si retlea HELP) y vera como 
alguien le abre la puerta. Por otro la- 
do el "vicious wargs que le ataca cons- 
tanrcmente puedc set ignorado con to- 
da tranquilidad, ya que no puedc ha- 
cernos dano. Si, dc todos modos, le 
pone nervioso, tecleando "KILL 
WARG" trace an 



cellar (figura 11) 

Esta es la bodega donde el rey guar- 
da el vino. Para salir de aqui s61o hay 
un sistema: ante rodo debc ponerse el 
anillo (WEAR RING), a continuation 
diga "OPEN BARREL", "DRINK 
WINS" (si queda vino en el barril) y 
"CLIMB INTO BARREL". Esto hard 
que al vcr un tonel vacio lo tiren por 
la porrilla, yendo a parar al along la- 
ker. (Estc sistema, aparie de scguro. 
es muy akohtilico). Si el barril ya ha 
sido arrojado al agua y, por ianto, no 
puede hacer lo que le hemos indicado 
diga ' 'JUMP' ' , que le depositara en el 
barril rapidamente, saliendo del mis- 
mo modo. 

Wooden town (figura 12) 

Este pcqueno puebleccto se encuen- 
tra al este del "long lake'. Es suma- 
mente util llegar aqui, ya que en 61 se 
encuetra el "bard'', este individuo cs 
de gran utlidad como veremos poste- 
rLormente. Su unico fallo es que no se 
deja controlar muy bien (o mejor di- 
tho sigue las insrrucciones lireralmen- 
te) y si decimos "N" ira hacia el nor- 
te hasta que no pueda continual. Si se 
sicnte con fuerzas puedc clegir la so- 
lution alternativa para llevarle con us- 
ted. Teclec "CARRY BARD" y llevara 



:■• :il irsdividuii hissi b <-i 



Bleak barren land y ruins 
of the town of dale (figuras 13 y 14) 
Si ha Ucgado hasta aquf. habra po- 
dido comprobar que son unos sitios tc- 
nebrosos ^no es cierto? Pero no se 
preocupe, en estos lugates no le espe- 
ra ningun peligrn, autique lucgo.... 

Bewithed gloomy place (figura 16) 
Aunque no es peligroso en princi- 

sitio, vetcnv.s c&BO M.mo- arrojados al 
"dark dungeon, por aigun ser mistc- 
rioso, (ruriosamente este seruestro se 
produce jusio despues de que en este 
lugar apatezca el -wood elft). 

Front gate of the lonely mountains 
(figura 17) 

Si espetamos un tiempo aqui vere- 
mos que aparete el dragon. Pero csa 



Halls where the dragon 
sleep (figura 18) 



Evidentemente el mejor sitio para 
encontrar al dragon. Ademas de set el 
lugar donde se esconde el codiciado te- 

Smooth straight passage (figura 19) 
Si ha logrado llegar a este lugar, es- 
te tranquilo: el dragon no puedc lle- 
gar hasta aqui y por ramose puedc to- 
mar un respiro. 



In ten tar matar al dragon con laspe- 
queiias manos de un hobbit conlleva 



eiectos funcstos para el osaclo (aunque 
muy nmritivos para cl dragon), por 
tamo debe dejarsc csa [area para orra 
persona que csie armada (persona que 
podrcmos entontrar en un boniio pue- 
blo dc madera, ;sc imaginan dc quien 
hablamos?). Si conseguimos jumar a 
csta persona y a! dragon a la vez bas- 
tara con decide a nucsiro amigo 
"SHOOT DRAGON" v el lo hara 
(aunque, a voces, sea un poco rericen- 
tc y haya que insiscir). Por oira parte 
e! dragon lient basra-nie hambre y no 



Aquf se entuenrra al entrada a 

>Hii,-/ki!/f- '.i hall- (si mi ha critrudo us 
red por meiodos menos ortodoxos) 
Para enrrar pongase el anillo, exami 
ne la puerta y espere. 

Fast black river 



util en el camino de vueha, un; 
que hayamos cogido el tesoro. 



The pale bulbous eyes 



} pasar por 
donde se cntueniran para 

i, pero si quiere sentir el orgu 



presencia, por lo que si no lonsegLif- 
mos matade a la primera deberemos 
ponernos a salvo y volver despues de 
un descanso. 

Little steep bay 

Si esperamos aquf se abre un aguje- 
ro eon una puerta. Ests puena se abre 
dc un modo muy «urioso> con cieria 
Have, detras no hay nada especialm""- 
pcro le da punras 



Para cruzar cl rTo hay dos sistemas; 
el primero consisie en nadar (nada 
aconsejable), F.l scgundo consistc en 
arrojar la cuerda a waves (THROW 
ROPE ACROSS) y tiramos (PULL) es- 
ro hate (raer el bote hasta cste lado del 

CLIMB INTO BOAT, navegar a wa- 
ves del rfo y decir CLIMB OUT. Esto 



II" dc pasar sann v salvo por i 
haga lo siguiente: pongase cl anillo. 
mutvase una vez en la direction que 
llevaba y espere (WAIT) dos veces. 
lucgo ya puede continual norm aim en - 
tc. Si no hacc esto descubrira que le 
matan. ton lo que rendra que volver 
a empezar, cosa nada agradable sofare 
todo a esas alturas del juego. 

Place of black spiders (figura 21) 



Elvish clearing (figura 20) 



Wood elf 

Esrc cxtraho pcrsonaje licnc cicrt 
predilection por capturarnos y llevai 
nos al 'Evelking 's dungeon*. Pero n 
latarlo, ya que puede sc 



Cuando hemos cnizado el •iblack ri- 
ven (^como que no lo ha cnizado to- 
davfa?) nos apateee una tela dc arana 
que nos impide el paso. Haciende 
"SMASH WEB" nos deja pasar aun- 
que nos vuelve a bloquear en el si- 
guiente movimicnto por lo que debe- 
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a REEMBQLSO. GIRO O TALON CONFORMAOO i 




; vol vera ejeciuar Ian 
hasta que salgamos de alii. 

Epe Iking'. * great hall 

Paia salir de aquf hay dos 
(dependiendo de donde quiera ir cli- 
ja uno u oiro y si no sabe donde ir 
echelo a suenes) el primero consiste en 
ir al stir y cntrar en el nEvelking 'j iv- 
Han del que ya se ha explicado como 
se sale, el segundo es el mismo que st 
uriliza para enrrar desde "Elvish clea- 
ring-. 



Fin del juego 



Para lerminar el juego debe coger 
todo: el tcsoro y el aniilo y Uevado a 
su easa, donde debe depositor el teso- 
ro en la cesta dispuesta a tal efecro. 
Cuando el ordenador le de la puntua- 
cion es posible que no le de un cienio 
por ciento de puntos. Esco es posible 
e indica que no ha recorrido codos los 
lugares jntercsames del juego pc-ro lo 
ha tc-rminado con exito relativo. 

En esta description se ban deralla- 



_.. .„ lugares rnas inieresantes y peli- 
gtoSOS del juego. De rodos modos que- 
dan aleunos sin deseubrir que le rota 
a usted" (seria demasiado fadl si los di- 
jesemos todos). Si no encuenrra salida 
a una siiuacion piense bien y quiza la 
destubra del modo mas facil. Solo r 
queda decir FELIZ A VENTURA 



HACALO VD. MISMO 
AMPLIE SU SINCLAIR 

16 K a 48 K 



PO 7 R S>0'- 



V«>n demos Kits ampliacion con instruccio 
de monlaje y programa de comprobacion 



ENVIAMOS 
CONTRA REEMBOLSO 

COMPUTERS SERVICE 

Corcega, 361 Ida. derecha 
Tel. 207 11 16 - 08037 BARCELONA 



ADQUIERA 
SU ORDENADOR 

SPECTRUM 

O COMMODORE 

DONDE QUIERA 



Nuestro servicio de Asistencia Tecnica, experto e 
eslos computers, garanriza la puesta en ma re ha de 
cualquier aparato estropeado. 



y GARANTIZAMOS 



COMPUTERS SERVICE 



Corcega 
Tel. 207 11 1f 



361 tda. derecha 
-08037 BARCELONA 






^p 



M. 



Le presentamos a SPINNAKER. 
Para que tambien nuestros hijos aprendan jugando con el ordenador. 



Mudios padres ya conocen que el ordenador domestico pue- 
de servir para que nuestros hips jueguen y pasen largos rates de 
ocio Con SPINNAKER los juegos de ordenador ademas sir- 
ven para aprender. 

SPINNAKER •:■■. la iirma ! u'er nij-idial en juegos educativos para 
ordenador. Ahora llega a nuestro pais para que tambien nuestros 
hijos aprendan jugando con el ordenador. 

Nuestros juegos estan llenos de emocion, entretenimiento, co- 
lor, musica... Pero ademas poseen un alto grado de valor educati- 
ve, ayudando a los nifios a que desarrollen sus habilidades y apren- 
dan de una divertida mariera. Aprovechando al maximo las nueyas 
posibilidades que nos ofrece el mundo de las computadoras. 

En su daboracion ban intervenido especialistas en la educacion, 
la didactica, la musica. los gralicos y la programacion. que ban rea- 



lizado un cuidado producto especialmente pensado para la edu- 

Estos son los motives por los que miles de nifios de todo el 
mundo son verdaderos fens de SPINNAKER. Y sus padres tambien. 

Si Ud. realrnente desea que su ordenador familiar sea una ayu- 
da util para el (uturo de sus hips, recuerde este nombre: SPIN- 
NAKER: Una divertida familia de pegos educativos. 




Comentarios 



AJEDREZ 



En esta sea ion desliiiada a comenlar fas programas cxislenlcs en el mercado nadotial-iunmn a hacer este 
men un monogidfico sobre programas de ajedrez, cxplicando Ins particularidudes de cada urioy sns halrili- 
dades en el juego. 

Como lodo buoijugador de ajedrez sahrd, result a muy dificilevaluar In maestrh de varios contendientes 
(humanos o dtxlrdnicos) sol/re lodo si sus niveles medios son baslaute semejaules, la/ como sueede en este ca- 
so. Nuestra evaluation va dirigidapues, bad a elcampo de his opciones de mnnejo disimlus del prop fa jingo 
(poskionamienlo dc las piezas en un begat cspeafico, distintos niveles dejuego, etc.). Esperamos, que en- 
cuenlrcn uli/ esta miniguia que les ofrecemos. 

En este caso no vamos apuntuar fas programas ya que esto equivaldria a estabiecer una clasijicacidn de 
valor, que dadas las caraderisticas deljuegoy las especia/es capatidades de cada persona, suponen aspedos 
eminentemente snbjetivos. Por olro lado, eCdmo puntuariamos la adkeian o la ace ion f La decision se la 
dejamos a listed. 



Programa: Microch 


ess 


da. Cuando elijamos una 


canodaslasfkhas.scpulsa 


Tipo: Juego 
Disfribuidor: fnvesfronica 


ehassi ha.c l.ilta, dc inodo 




Formafo: Cinfa de cassette 




cl modo normal. Se debt 


Ordenador: ZX Spectrum 1 6K 


v'ulL'v^'il^ho'c'r'em- 


senalar que cl programa no 
comprueba la validez de 


Este es .1 HBko de hs 


™^?„d'S";t" 


ESriTe^^tpEr-dT- 


ninguna election, Megan- 


FJZ£&£8£ 


gro. En la parte superior 
derecba de la panialla apa- 
rece el menu correspon- 
dicniea la option en la que 


ckgXdebemoscommuar 
jugando.a menus que clija- 


prSma^n'uir'^ 1 


para las dc 48). Est J pensa- 
do basicamente para jugar 
una tranquila partida de 




(o no lan tranquila segiln 
se vca), aunquc permitc 

de partidas colocando las 

terrokada. 


pal consta de euatro opcio- 
nes. La demo.Mracion es 
una partida en la que cl or- 

mismo. En este cast) debc- 
mos dcurle la jugada ini- 
tial de las blaucas.y el de- 
sarrolla el resto del juego 

esdcut.dad., un., r nsH, llT i 


desde el [BCgO. la uliima 
option del menu miual o 
la de S,-lnf. Si Li cfc., 

mos, pudiendo trear de es- 


UIIH.1 


Al cargar el programa 
aparete dibujado cl lablero 


posibles. Vara disponer el 




de ajedrez con las easillas 




en azul y moradoy las pie- 


lla. Las dos opciones si- 
guicntes («W« y ~B~) nos 
pcrmitcn elegit el color de 


laposicion iiintjly la final 


Durante el juego en si, si- 


zas en bianco y negro. 
Antique puede parecer de- 
masiado"llamativo»dicho 
asi, al verlo se comprueba 
que no solo no es asi, sino 


de los barquitos; asi »e2c4» 
muevc el peon del rey dos 
easillas haeia adelame des- 


dispone de varias opcio- 
nes. fa primers es introdu- 
cil nuestra jugada paia que 
cl oidenadot responda a 
continuation. E! movi- 


que ademas proportion;! 
mayor definition dc la que 


nucslras fit has y, por tan- 
to, qtiien empteza la parti- 


de sti position inicial. 
Cuando se atabc de colo- 


miento se le indica de un 
modo similar al usado para 






cotocar Ids plezas duram 



ten las jugadas validas se- 
giin las reglas del ajcdrez. 
Oira opcion disponible 



selapedimos.elSpcctruti 
clige I. jugada y la rcaliz 
sin que podamos dcshatet 



; puede volver a iugar 



El programs esra bicn 
hccho y resulta muy poten- 
te para los I6K que oeupa. 
El tiempo medio por juga- 
da de ruAquina es de 4 se- 
gundos y dispone de un re- 
loj donde tontabili/a lo 



sir., elecciin) 3 
anula la ultima 
iaadademodoq 



ugador 
ador de 



luga- 



ie, segufainente por la I 
sjempre igual, de mot 



Programa: Chess the Turk 
Tipo: Juego 

Formato: Cinta de cassette 
Ordenador: ZX Spectrum 48K 



maestro para gararle. 



verprohl.m.,- I 
que hemes jug* 



liein.K'ion para aficiona- 


nos hacen las iipicas pre- 


le senalar que Juranle esia 


dos a este depone (pues asi 


guntas sobre el color eon el 


repeli.um podemus patat 


csta tonsidcrado) en el que 


que queremos jugar y el ni- 


y segmr jugando desde tfe- 


se nos permite, aparte de 


vel de intcligcncia de la 




ugar; tevisar partidas, sa- 


maquina. Este nivel esta 


miblememe, donde come- 


car listjdos de las que )u- 


talibrado de 1 a 6. Sicndo 


timos el error). 


piemos, jugar partidas por 


el nno el mas scncillo y ra- 


Si loquescdcseaesana- 
lizar las partidas de los 


torreo, etc. Ademas, y esio 


pido (tarda unos segundos 


es Importance para mueha 


en pensar) y el sexto el mas 


grandes maestros tienc dis- 


gente. el juegoesti traduci- 


compk-io ton un liempo 


ponible un editor detable- 


Al caigarlo aparece una 


jugada. Este ultimo te ttss 


SS^t'S^^^ 


bomtn pantalla de presen- 




min'aiulo las sobrantes. De 


iugar partidas poi .orres- 


este model y ton la ayuda 


presenta el menu principal 


emplcando la opcion de 


del programa puede resol- 
vcr los problcmas plantea- 


saivareljuegoencinlaque 




ton eatoree opcioncs dis- 


se ve mas adclante. Duran- 


linuar partidas aplazadas, 


lintas que ademas de jugar 


te la partida se dispone de 


nos permiten realizar di- 


un comando de ayuda que 




versas operacioncs de gran 


nos aconseia sabre la meior 


Una vez terminada la 


utilidad. 


jugada (que podemos ele- 


partida en si tuando por 



ul.l) y la oti.i por pant.' 

nemos lie una impresora 
lebemos hater el lislado 



ZX Primer uotra impresora 
compatible que permita el 
COPY yel modografico. 




partida por torreo, para t 
pcrar la rcspucsta de run 






1 y 1 



roduci 



piezas. Tambieu pode 
mos grabar un lislado de 
toda la partida para revisar- 



qu. 



ni;.i impresora. Na- 
ralmenteque todoloque 
graba puedt ser leido y 
istc una opcion para leer 
partida dejada amediasy 
ra para el listado. 



Comentarios 



Estcprograma es unodc quesolb cs apta para prole- piensa,se hftee tnasagrada- 
losmiseonipictosd'el mer- sionales de muy alto nivel. It ] t- . 



alguna, 



saria para poder juyar 






Programa: £/ jugador de a/edrez 
Tipo: Juego 

Distrifauidor: fnvestronica 
Formate: Cinla de cassette 
Ordenador: ZX Spectrum 48K 







porcionando m, 
eidaddecalculo 



^'.M^^Nlv'^L'^^'i'.'iLj" Programa: Superchess 3.0 

di'iosiiui-duiiiinovutM- Tipo: Juego 

vameme largo pjr.i lu.i!- Distrifauidor: 

r^v'irw^jM'jIs-.Ir p.irtT- P°""oto: Cinto de cassette 

iU P or o.in-o o simil.iri.-s. Ordenador: ZX Spectrum 48K 






El programa dispone de 






al- 



.durodcllj 






Corno >a « lubiuial, al 110!imiii . 

(t.'lor o M,.iiL« v negro) y serijlar 4 ue durante el jm.- rvali/jr el anali*^ de jue- '„■ ■ , ... I,' , . ,1,,,,',' pj! 

al bando con el que quere- g° cl ordenador imprime gos.biendesdeelprineipio ro no duranii I imciodel 

l,i 11.1du.1dn J]' c^ji.iiK.l vMilo uhm. dejamequelo media, previa coloi-adon .mil is, s sjno po, libre.u 

!» de modo que la es- de las fichas en las casillas Las jug.idas sc inrroduccn 



Jad de usliarios del Spec- pera micni 








dcm.is juegos, indirando 

lucgolafinaleonlaanota. 
don habitual. Pcrmire rea- 


El anilisis do partidas 
permite analizar hasta P o- 


■ gO", tap 
rcligcnte 
de ZX). 


» cu d mimcro 7 
oncincodelme- 






lizar tambicn captures jI 
paso y enroques. 

tineas de juego y, enfre 
oir.is posibilidades permitc 

las jugadas (esthete earn- 
bijr el mvel de juego en 
medio dcuna pa rrida, eam- 
biarlaposicidndeltablero 
(lasfichasq.ueastaban.arri- 
ba pasan abajo y viceversa) 
y modilkar la position dc 
las fichas durante e! juego 


indicarle en cuantas juga- 

(sisepuedelwcer.natuml- 
menr.e).F.nestccasoelpm- 
grania bustar.i la jugada o 


uu principal proportiona 
information del modo en 

eomo "piensa* y porqut 
cligcunasjusadasenlugar 

B jlrattiva p.irj .lquellas per- 

menle, juegos por ordena- 
dor. 

S El pragrama tsta muy 
bien prcsenlado y posee 
Opriones inleresanlcs, 
iunquesehacenotarlafal- 

o la de jlgunas. tomo.la de 






numero maxima de jugj- cual es la jugada que lien 
das porcada (ugadot (.1 j u - sdeccionada de momeni 
g.id..sM t! i,m l .,.li U rn.Mdc y |j punlnaiion que 
cads juyador) y nos lo indi- otorga a esa position. Es 

Unadelasparlicularida- puy.as de c.ula handiVv e 
des. mas mteresames dees- ],, s j, u;1 d<in de c.ida l,n. 
te program,! consiste en (Para mayor infenucid 




,ons ruya su propio |U 


- lalvarcl juego en cinia. 








I VE SON 

SOFTWARE 




,£HULK IE, 









para J6K y 4* 



Como programar 
aventuvas 



.. 



&*. 



El Castillo emhrujado j 




COMPUTING 



MISIOW SUICIDA 

JUOANSO AX POKER 

SCROLLER 

SBATICOS 

TRIDIMENSIONALES 
EL CASTILLO EJTDIABLAIX) 



8: 



'e? 



t&jf 



v ep 



No es bueno 

que el Spectrum este solo 


EL P I/O 


(1) 




CtMl Ik 






Adle/Board n 9 8 



dot pctson.il se convierte en unj po- 


alto (5v,)y a n,v C l haio (0 v.). Con unos y ceros, sc h.ce de ocho en 




tente hcrramienta <.tpa* de comunj- 


el las, poi ciemplo, pucde, mediante ocho bn- de i.tdj ve/.a difercncia de 




"o',"""'''" J ''' U "' d: '' JU "" V °" :r 


el progrjiiu adecuado. conttolai uno SERIB, en el cual lo que se ha.ia 
liasta !<•<> intetruptorcs.con lews ma- seria recibir emitii pot on solo hiio 




Almt- bien, pju que el mundo ex- 


lis i.iniidri apagat apJiratos tod.. l.i intbrrtucion, de bit en bit). 




mm ... UllOS) ce- 


quesehaceodejarpteparadocsc/;// pcrmite el BWtiwwbto de mrbrma- 




rCL Z ;:.|.k >..;■.,. afcfcc « -..■■■/ 








tuemiadd procc.o exterior que cste taisi .. divers, . .., . . , . ... 
enviandoesa st-i'ial y poiesehiloifa/) Disposilivos peri&icoi tipitos 




la" 'ui—ms'^'v .'.'■', ^m'^.i'I'"' 


deese/'.)//vjae:ni.,riin(iiioouiuc- compatibles con d I'lvK.u. I.i mayo 




tbrmj ■■ ...:i ;r[ .., l" . .. is 




impottJiitcs elc-mcnlos .. '..< Iiora de 






liaect entendcrsc ..1 mundo dipul 

tOncl^HO .< .,,!,.;;■,„ 








































Endecto. hablamosddconvctti- 






















J,.,.,,,..!,;.....!,..,,,! , ,s r „s , . 
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rz 
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'"';?.' u!-.!; vl V ■■l,.v , ;'!'„! ; .!; / ' 
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Li alredodor de las 6.01)0 peseus. 
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El Spectrum y el mundo exterior: 


2; 
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i° s 


~z 






El PIO Z80A 


i: 








r 


s E 


~ 


"" 




Su Spectrum no dispone en suin- 


"5! 




]™ 




^ awj ,. 


m ros 


— ■ 






Tcrior de Uu bloqucs de B/'S jntes 

IlK-tKJOll.ldos, pi' CO plicdc dol.lllc de 

utiosr.iti.ii .1] l'lO Z80A- Con el ten- 










™' jzr 


to 
































dri el rjmoso «/W( del usual io- uue 








lector. delPK), ^ 






iWucs.cumocoiisecticiKiadcl.i Este circuilo luce su fundon de 








mSK^te'Ximos! 011 ^ 


limtc'V'cu.l se XS ou" nl' '" 1 ' ^4 -"^ ''' ^ V '°' S ■*" 

■1 ' ."si'iT le'.V.I, ',)/",'„„/■ qu nditc.ct.u,'./ - ■., l " , cn|!.'''.m 




to, uii />«>■/ no es mas que esc., ana 


ntm.os.urcuiistaimasc.si.uauoncs bas). Bl mte.ombio de mtbrmacion 






lelermmadas. se pucde controlar entre la CPUyd PlOserealiza a tra- 




iyual que a cualqujet otra iKrcccion 
deniemoiia.Asim.Miio.cn csta di- 


011 el orden.idor eualquier proceso ves del ///,.. de dalos, tea lizju dose el 
dcitmo mec.imco que se desee. control del mismo mediante las se- 




reccion de memorla se puede leer ;■ 


*IO Z80A; Concrolado. de 'l a! f S d >'' '"'' dc "'"""Uomuii a to- 




cscribir. B! ordeiudor cuando lee 


■■■■.S I'ARAI.KI.O lI ' 1 Ll l ' ,ml11 ' 1 (k ' dispositivos Z80. 






Para ello debe asignatsc a cada 




ceres. El mundo exterior lo que hate 


El PIO ZBOA. cimiito control idor P uer " ""■' dirci 'eion (en realidad se 




con respect- ..il/w/oiomardcclo 


le E/Spauli! .,1111 uuunoiiK.j.rj "cclmi.ih dos direcvumes para e.ula 




nmaritMAaladeOoSrahiosfulo 


nable qui- 1. ,!■■ , m ,;,-i,J(J>m- P»«*)deiE/Sde-emreIasZ56direc- 




quesellam.11. mull- Ji tension lot- 


-.anl.liTll jlt , ■■, .[/srj,\ cKMtaposibles. El Z80 s6lo deja li- 




tos TTL), torrespondientes respect]- 


os disposirivos periftricos con ?os ^rcs S% para direcdonaj- las erftra- 




Tomo lc! que tenmofL ocho 


H ue debc imcfaemar en una aplica- djs y sjlldjs - 

■ion dciermmada. {El scr PARALE- Pdr ' 1 sincrojtizar las transt'erencias 




/-//J.conellospodcmosobtcnerhasla 


LO quiere deeir que !as transreren- de in form acton con los periterieos, 




236 conib inad ones distintas de esos 


ias de inrbrmaeton. el ttasvase de ta da puerta tiene asociadas dos 




unos y ceros de csas senales a nivel 


irogramadon 


I'M )\ 


, etc. 




ineas pa 


a la 


sefiaies de 


pro 


ocolo 




















-SELECCIONAN F 








L_IDENTIFICADOR 
OE LA PALABRA 


| ! 


\ D6 [x 


|x [7 


. |l |l 




d: (oo 

[10 






MODO 
MOOO 
MO 00 





~~| DE CONTROL 

[_ NO IMPORTA 
SU CONTENIDO 






- 


LH 


BE. 


,, 


s. 


B, 


B2 


B, 


1 BO I— -DONDE EL ESTAOO DE CADA 


BIT (I/O) INDICARA 
ENTRADA/SALIDA 



i l-.i .: lunci 
Modt)0t>>jlidjd< h> 



■1111 dt N /«/.! l|Ul -l.i|i I, 111 1.1 tl I 

: '■'■ v < ■■!" Trum^-.ciiwrcL.i 

d I'lO. 

, pucru* del PIO pjcdc. m" -Liu pjl.ibu ,lc Coiur.il dc ink- D4: CI .HiMKU^ilaiMsciiaiiti 

■'■■-".'■ rrupcion. lin cmc moiltMu. m- uiih- mjixmn 

/.1 , '.,s u.itill.is RDY j STB .1. :.i.). I...sigae .1 l,i nuUt-.tra dc ii 

' pucno, Miio i|Ui Li iiiu-irupiri'm l,i eruption 

• '' ■-■ icun los !ii> >lt t/miMd.i U .1 -Optidii.il: M.ist.u.i do inien 

iiuicnic moJo: (.nSri. lis liiij p.il.ihr.i que dcj.i p. 

bf^un clcsudo^ los*,/, 1)4, 1)7 irTfiiul unTSbi imS co, 

...I.: lux j .1, la puiTtJ puede sc! s ; prodiswn los siguiciilc cfccios tnil, es el' 
roKfjntJUJ ti.n-i.l. 1;.. d< 



M01 







| t>7J Ofi | 05 J D4 


.|.|.|, | 











. Al *i up, 



■ "■»•"•" I inicrtupiHincs pi-rmmtijs 

,,.,!,.,.„,, Do II rcjlrzj .11 ORi.inl.i:.)JsiJ- 

''':"! , "' | "' ilcg.i j'l pucrco. 

I h-jI./j un AND con I.. mJs 
..if.i y Uitiiic ll.-p.i. 
05 I) .1. nivel uto 



15 



'uiFNTII 



Aunque soli) hay un.i direccion de gramado par.i que la recc 

tonlrol pur l .kI.i puerto [f'ti'l A:S5h l.i.so .ilirm.ilivo I'll los sig 

/«;7h:S71 : ),.i I pi<ii;i-.i mar.se cstriben c ] os J L . R .|oj. | a CPU ton 

una tras otra las palabras de control, direcridn (2 ijfci) m,„.i, 

Las interruptiones ' J '-"''• 1 '' ''"' IIKMl " W 

Segiin la disposition en quetenga PK). E«c In:.- ipK cntrej 

i-oiKvlailadnOyhCPU.losd.itos VECTOR 111 IN I LUkl 

scenviansinning.mprohlem.idirct- prcviainente lu umd.. , 

tionandotonvenientenienle <:! PIO. nurse. Uiando I.i CPU II 

Asi mismo, el modo mas norni.il de d.i asi la direction, salt J .1 

rccibirdatosp.trece que seri.l leer de de memoria indkada po 

d.iloa I.i s.ilkh. Sin mih.i.^., isistc dneetionenuueseenc.On 

otro sistcm.i qiR evu., qm I.i CPU do se produio la inlcrru| 

pierda el lienipo niiiaudo lu.mdo una ve/ .lU-iulid.i, velvet 

puede scr que no luya dato; euando eslaba. 

el PIO tiene 1111 dalo listo (un byte) Al mismo liempo, el P 

mandauivasenalalaCPUa 



ma toncxion y esta pasa 

La Z80 tiene 3 lineas dc intern 
;i6n: RESET, NMI e IORQ, De 



Ida- 



ema cs reconccer quitn ha pedido 


Lina impWH* 


interruption. 


mmu.i w.i ■■■ 


Esto lo puede hacer la Z80 de tees 


ponde.en i_as 


odos distintos, 0, 1 v 2 (iojo! no 




nt'undir eon los rnodos de iuncio- 


los... y asi un 


micnto del PIO). 








Los modos U v 1 sirvtn para .idjp- 




r la ZHOque permite esto; la colota- 


eolo: READY 



lrecibirundaLo,elP10,kliv.ll.i tin urn. I. 
li de interruption. La Z80 reco- (umbieii 
t-ra esta interruption si se ha pro- gativa). 















ARDY 






ASTB 








A,a 






PIO 










BRDY 








BSTB 








B0 
B> 











T Y LA NMI CuJiido el orden.idor se pone en "")'" 

r.mp.iond.id ^-lad.'iiii.ise.iedtseiMJesparaefi- { 



i.idavsalid,i(Mo- 
) mas complicadc 
que .solo se puede 



DATA 

BUS 


PIO 


CONECTOR 


DO 


19 


6A 


Ul 


20 


7 A 


D2 


1 


MA 


D.l 


41) 


IIA 


D4 


39 


12A 


D5 


38 


10A 


Db 


3 


9A 


D7 


l 


3 A 



delPlOdeberaponertodasI 

deA0aA4a l.paranoattiv.i 
rrespondientes perirericos si estuvie- 
ran coneetados. 

Para seleccionarel puerto A o B se 
utiliza l.i linca A5. Para seleccionarel 
registro de control o de dates (del 
puerto indicado por A5) se utiliza 
A6. Par ultimo A7 se utiliza p.irj jcti- 
var o dcssietiV.1T el PIO eomplcto. 

De esta matiera las dircctioncs de 
los registros del PIO quedan como 



PIO 






CONTROL 






B/A SEL 


f , 


238 


C/D SEL 
CE 

Ml 


5 

4 
37 


2215 

21B 
24A 


10 RQ 
RD 


36 
35 


17A 
ISA 


+5 v 


26 


36 


GND 


11 


6B,7B 


CI.K 


25 


MB 



pucde ]iiii!;r.im.ir cu,tli|iuer periien- 
co, en nuestro caso el PIO. 

Asi por ejemplo, program jt el 
puerto A en uioilo 3 todo eomo sali- 
tl,ls: $ — S5P 
l-D A, S5F(=%1111H11) 
OUT <5F), A 

$00 
Program.! puerto A en modo 3 
LD A, S00(=« — 0) 
OUT (51 : 1, A 



BUS PIRIiCCIONES 


diki-cuon 




REGI5TRO PIO 


A7 At. AS A4 A3 A2 Al A 

1) 1) 1 1 1 1 
1) 1) 1 1 1 1 1 
1) 1 tj 1 1 1 i 
11 1 I 1 1 1 1 


1 = S1T= 31 Rcjj 
1 = S.il ; = 63 1U'}, 

1 = ,S7I ; =127 Rcj 


(J 


UATOS PUERTO A 
DATOS PUERTO B 
JNTROI. PUERTO A 
JNTRO.l. PUERTO B 



Ci: 



j-|-M!;r.llll 



en BASIC < 



!PIO.il.Spec(j-um,yscpu 

deseribirsuprogr.imjdon. lomandos IN y OUT: 

^ 'v^'s L- 1 . L k-M !L' I ■ n'> u lie n" .' OI ' ' : tJ ' rL ' L 1 il '"' vA " lk ' VJ J lj t!l " 

k'sdc BASiC. ' *" ES/ad^ " P<Xiltk ' ld0 d Va " 

'. }. e 'TV!: !'.!''" IN: direction, 'lee el contcnido de la 

direction de V./S espedfkada. 

IN A, (U): lleva al .leumulador el ^o que el anterior queda como si- 

comenido de lj direction de E/.S » ae: 

u. . mi xi ic men e (uj. OUT 95,225 programa puerto A en 

OUT (U), A: Hcva el eontcnido del mod.! 3, 

■' K/S OUT 95.0 program,! los 8 bill como 



.i im^i.im.iumi en |. 

uuiK'slNv'iH.'l'de. 



dj( 



icittc(U)* 



oCSnnholie 



-(C). 



enir.Rl.iv 



hspe, 
:xpln.u 



OUT (C), r: lleva el einilenido del re- 
nislror.i la direction deE/Sconte- 
nida en el regjstto C, Simbolica- 

De esta manera cargando en el 
utiiccn, los v.ilores jdetuados y eje- 
cion IN o OUT torrc.spondientc se 



ucslros let tores to- 
il mas el PIO, del que 
sindudaliablaremost.unbicncn.iu- 



Mjrio Cabesla 
Ignacio Mart 



Sinclair ZX Spectrum* 

N-l enVentosa 




ZXSpectrum PLUS* 

*4 





Perifericos Spectrum indescnmp 



Programas 



3 CQNTROLADOR 

DOMESTICO 
4. AMPLIACION DE 

MEMORIADE16a 

48 K EXTERNA 
b AMPLIACION DE 

MEMORIADE T6a 

4B K INTERNA 

6 AMPLIFICADOR 
DE SONIDO 

7 INTERFACE JOYSTICK 
TIPO "KEMPSTON" 

8 INTERFACE JOYSTICK 











'■■ •'■■•■'™" ■■■ : -« ; 


EspeoialmBrHo dlsenndo Pais d Speclrum. 


LI BR OS 

Todos los tilulos 
para todos los 
ordehadores 


PROGRAMAS 

Los ultimos 
best- sellers 


PERIFERICOS 

Impresoras, 


CREDITO ENVIOS GRA 

Facilidades de pago A PROVINCE 
hasta 36 meses* 



MADRID MADRID VALLADOUD BILBAO 

Puerto Rico, 21-23 £»*? Huidobto, s/n. Juan de Jllni , 3 )P noxiMA ap6KTurai 

28016 MADRID (jra La COTUria, km, 9,3 VALLADOUD Alameda Urquijo. 63 

rels [91)250 7404/02 28023 MADRID Tel. 33 40 00 48013. BILBAO 

Tel.(91)2O7O320 




SV-328: 32 K ROM ■ 80 K RAM 

CP/M. Basic Microsoft P.V.P. 76.000 pis. 

SV-318: 32 K ROM -32 



Impresora StargeminMOX , Joystics 

alta competicion 



OiJICK.SHOl ' 



OFERTA ESPECIAL 

• SV-.X!3 ontenmlor 

• :■:■■■■ -:■■■ ■ :. ■ 

• Muliiplan 




605 Expani 
605 Expara 
904 Magneiol 
105 TablBta 



000 pis. 



SENSACIONALES OFERTAS PARA 

USUARIOS DE VIC-20, ZX-81, ORIC, 

DRAGON, etc. 

INFORMESE EN "CHIPS & TIPS" 



ENVIAR A CHIPS & TIPS-PUERTO RICO, 21-23. 2801 6 MADRID, 
AUTOBUSES 7-16-29-51-5? ■ PEOIOOS POH TEL: |91) 250 74 04 




, : .,nr„i, 1 .i 


praduno 


ordanada. 1 pt». 1 toul 1 




























t^*?l. j5*!~ "j!* 


--—.... „ 


L 










Varias 
(nsfrucciones por 
f inea en el ZX8 J 

No ulibzaremos compli- 
tados programas en eodigo 
maquina sino uti pequefio 
programa de 10 Iineas al fi- 
nal del programs en cl que 



i. Esto 



d dific 



dd ZX81 t 






_... de ._ 
puediera esperar- 
Gomo K vera, el (unciona- 
mienWessendiHarnoyfa- 
dl de aplicar. 

E! programa consta de 
dos panes fundamentales: 
un budc de inspection, 
que va mirando los frftts de 
programa y compariiwto- 
loscoiiE-PCCquccs la va- 
riable del sislema que con- 
iicne el numcro de llnea 

zadas Lis povidones de mc- 
■"-■" que se buscaban se 

.able. 

Por ultimo sevuclveal pro- 
grama listando desde l.l 
tinea moditkada. 

Es re co me n da ble poner 
el compulador en modo 
FAST para II. i 






nido previamenl 



Alt 



modo .SLOW, 
cipio del progra- 



blesiijas. La variable Hva a 



PPC e 

variable Psenalad ultimo 
byh- que debe inspeccio- 



s 



F.I inancjo de csta ruiina, 
mo decia antes, es muy 



linea que se desea modifi- 
car (por ejemplo con LIST 
n, p ) v despues se activa la 
.ado es qu« 



|]{CC 



or) 



ro que bid 

ejemplo, SI 



y queremos meter una 
linea entre estas dos que 
sea PRINT "B" baremos lo 
siguiente: (stiponemos que 

detras de la 2 y que todas 
son seguidas asi que no po- 
demos desplazar la linea 2 
t'adlmentc). Borramos la 
linea 2 y cscribimos 2 
PRINT'S" que era la linea 
que queriamos meter en 
medio. Activamos la rutina 
ton una llamada, porejem- 
plo GOTO WO, v final- 
mentcescribimos2PRINT 
"C", para rcsfablecer csta 

(ado es que todo ba queda- 



ter20luie.isenevemismo 
lugar seria igual de fatil. 
No bay que olvidar resiau- 
rar la linea borrada al final 
de la introduccion de todas 
las iineas. 



tro de bloques ti 
TO n, dondc n c 



dr. 10 GOTO Hi porejem 
plo. En este caso debe te 



I 10. Pot ejemplo. si 
gunas moditicacio- 
is ba quedadoi 



10 PRINT "A" 

K) iflNKEYJ = '■" THEN 

GOTO 10 

la linea 10 no tendra e! 

el'ecto acostumbrado sino 

que provocara un salto de 

PRINT en vcz de quedarse 

indcfinid.imentc en la 

linea del GOTO. 

Eslo es una prueba de 
'dad nos halla- 
isma linea y asi 
lo enticnde el ZX81. Esto 
OCUrre porque al ZX81 !e 
dalomismoclnumeroquc 
tenga cada linea puesto 
qucsoloscfijacnqueeslo 
que esta antes y Jo que esla 
despues en el programa. In 



i. Poi ejemplo opera mlo 






que es posible bacer gat 
cualquier linea tenga eual- 
quier numcro, de forma 
que podrian 

guieme: 

10 PRINT 

20 PRINT 
10 PRINT 
20 PRINT 



llamadass 
dud ran siemprca la prim 



realulad la vcrdiidera ulili- 




dad de numcrar las Iineas 


se indique. Por ejemplo, en 


vienc dada por los salios y 


el caso anterior una linea al 


llamadasasubrutinas.Una 


final que diga GOTO 10 


prueba irrefutable de que 


inictaliza coniplctamente 


cIZXKI permanece indifc- 


el programa. 


rente ante el numcro de 


Bueno; vamos ya con 


Iineas es que pueden po- 


cl programa que hacc eslc 






inferior en zonas del pro- 


tiencn FAST y SLOW no 


grama que normalmente 


son necesarias, y tampoeo 


llevariaii uumeras mas al- 


lo es la linea LIST N. 



9BOO FAST 

9900 LET H=PEEK 1639 4+256 (PEEK 1 

6395 

9910 LET P=PEEK 1 6396+2561 PEEK 1 

6397 

9920 FOR F=> 16508 TO P 

9930 IF F>16509 AND PEEK POI 18 

THEN NEXT F 

9940 IF PEEK (F+2! +256* PEEK (F+l 

>=H THEN GO TO 9770 

9950 LET N=PEEK (F+2) +256*PEEK ( 

F+l> 

9960 NEXT F 

9970 POKE F+l. INT (N/256) 

99B0 POKE F+2,N-(INT (N/256)*256 



Como se ve este progra- 
i pucde reducirse en 5 
t.is ijLiit.uii.lo Lis (res pri- 
iras y las dos ultimas y 



cambiar.se escribe GOTO 
9800 y ya esta hecha la mo- 
di ficacion. 

Una ultima advertencia 
esquesitenemosporejem- 
plo 10 lineas coneUiismo 
numero y queremQS borr.tr 
alguna, debemos tcner en 
cuenla -que se burran pur 



urden. es deeir, primero se 
borrara la que iigura antes 
en el programa. Si quere- 
mos borrar tudas tendria- 

borrado 10 veccs seguidas. 

Otra advertencia es que 
aunque cl cursor dc li'nca 
actual aparcce en todas las 
lineas conelmismo numc- 
ro, al pulsar EDIT solo ba- 
jata la primera de ellas. 

Tampoco deben usar.se 



n borradoauto 



aiblt 



nla. 



Alas Ideas para 
proteger t us 
programas 

El programa que mostra- 

dra aiiadira losqtieactual- 

que quicra proteger! os. En 
eslc caso el program.; pedi- 
ra la clave para acceder a su 
propia ejeeucion. Para ello 
se dispone de trcs oporlu- 
mdades. En caso de que las 



tengamos 
clave se pucde liallat lia- 
ciendoun BREAK y aece- 
diendo a la variable pS, 



program a csta protegida 
mediante e! sistema de 
cambiar a cl valor de l'a 
variable DESZ por lo que 
eualquier inlento de bacer 
BREAK, productria un 
crash con el consiguieiire 
bloqueo del Spectrum. Pa- 
ra cargar el programa ad- 
junto proieda de la forma 
sigut ente: 

1) Caigue en el orde- 



nador el progtama que dc- 
sea proteger. Aeteda al lis- 
(ado y tomprucbe que las 

del programa "protector". 

2) Acontmuadoncr- 
gue el programa ■■prolec- 

MERGE. 

3) Fije la palabra clave. 
Para loeual usaremos la va- 
riable pS. Observe que di- 
eba variable no aparete en 
el programa ya que cs una 

fijar la clave bastara con 

LET pS = "BUITRE" 

en caso de que qucramos 
que la clave sea BUITRE. 

4) Ac ' 



programa dc forma que 
atitocjctulc en la !im 



5) Ya solo queda com- 
probar cl rcsultado, para lo 
cual tendremos que cargar 
el programa resulrante. 






9B75 STOP 

9SB0 REM ■ rutin, da la 

tees let f-o 

9B90 BORDER Oi PAPER Ot 

LS 

9891 POKE 23659,0 
9695 PRINT AT 7,0| ' 
ARA PODER ACCEDER 
RABAD0 A CONTINUA- 
ARID INTRODUCIR LA 
QUE DESBLOQUEE LA 
IENES 3 INTENTOS, 
OS SE AUTQDESTRUI- 
MACENADO EN LA ME- 
9900 POKE 23659,2 



BIENVENIDO. P 
AL PR06RAMA G 
C1QN ES NECE9 
PALABRA CLAVE 
PROTECCION, T 
SI FALLAS TDD 
RA TODO LO AL 
MORI A" 

LINE R*j 



9905 INPUT "CLAVE " 

POKE 23659,0 
9910 IF P»OR* THEN GO TO 9973 
9913 POKE 23659,2 
9920 CLS i PRINT AT 7, 10i "MENU"l 

PRINT AT 10,3;"1- CAMBIAR LA CL 
AVE"iAT 13,3("2- PABAR AL PROBRA 
MA" 

9925 INPUT "PULSE LA OPCION ELEG 

IDA";OPCI0N ' 

9935 IF OPCION-2 THEN GO TO 1 

9940 IF OPCION-1 THEN GO TO 994 
3 

9941 GO TO 9920: STOP 

9945 CLS : PRINT AT S,5i FLASH 1 
("ESCRIBA LA NUEVA CLAVE 

9930 INPUT J» 

9955 LET P«-J« 

9960 CLS I PRINT AT 7, Oj ' 

RES CONSERVARLA PREPARA 

ETTE PARA GRABAR. 

UALQUIER TECLA CUANDO 

IBT0"i PAUSE 

9965 SAVE "CLAVE" LINE 98B0 

9970 STOP 

9975 REM ■ CLAVE INCORRECTA ■ 

9980 LET F-F+l 

9985 IF F>-3 THEN RANDOMIZE USR 



9990 POKE 23659,2: CLS : POKE 23 
■659,0: PRINT AT 7,8; FLASH t , "NO 
ESTAS AUTORIZADO"] PAUSE 60: PO 
KE 23639,2: CLS t POKE 23659, Ot 
GO TO 9895 



"SI OUIE 
EL CASS 
PULSA C 
ESTES L 





Lectores 




















Prcgunta: El motive 


podemos deetrte dos 


listado del programa? b) 


funcionarfa es el c, cl de 




de mi carta es preguntar 
Spectrum veraones 2 y 


cosasi primero, que no 
basta eon escribir 
dieiendoloj sino que 


(Se puede envi.ir mas de 
un programa en una 
sola cinta? c) Si el 
programa enviado no 

sale elegido (sera 


pouer caracteres de 
control de color. 




.1 mil la version 3B. Yo 
Igogo un Spectrum tie 


debes mandaroos el tipo 

de error que has 


l.A.M. 
Aranda de Ducro 






hallado; y scgundo, que 


devuelt.i 1.1 tintar 


(Burgos) 




ir.uii de cabeza los IN 


TODOS LOS 






del leeiado. (Existc 


PROGRAMAS 


D.H. 


Licttiv.iuicnte, la 




alguna otr.i diferencia? 


PUBLICADOS SE 


Elche 






COMPRUEBAN 








M.S.D. 
Gerona 


DETENIDAMENTE, 
agradecemos siempre 


Rcspucsla: El listado 
del programa no es 


puede uiili/.ar par.i los 
oaseUet. No as] con los 




Rcspucsia: La 


imprest jinljblt siempre 


Microdrive!, Si te interesa 




diferencia extstente 
entre las diversas 




lugar una detallada y 
compjeta description de 

la cjctution del imsmo. 






versiones, a pane del 




Software- tsareddo tn el 




f'uncionamicnto de l.i 
sentencia IN es la 


Prcgunta: En cl 


Por lo que respecta a la 
segunda prcgunta. se 


TODOSPECTRIJM. La 




disposition interna de 


mimcro 1 1 de la rcvista 


pueden enviar tantos 


nueva rcvi.sta de esta ■ 




los cjementos. Todo lo 


publicais un programa 


programas como uno 






demis stguc identieo. Lo 


llamado "Batalla Naval* 


desee, tambien 






mcj.or que puede haeei 
cuando ejecutc algun 


que solo pueden 
utilizarlo losusuarios 


respetando lo anterior, 
es detrr. enviando su 










programa 0,111- eontenga 


del ZX 81. Yo tengo un 


explicai ion, En cuanto a 






instrueeiones IN es 


ZX Spectrum 48K y me 


la ultima prcgunta. su 


PifEunta: Hi- enviado la 




SUSlitllir los valores 


gustaria poder utilizar el 


respuesta e.s algo mas 1 






programa de die has 


programa. ePodeis 


complies da puesto que 


una dc las puer&f del 






public.) r la adaptation 








nuevos, sobre todo, si v,i 
sabe la version de su ' 


de dieho programa para 
el ZX Spectrum' 


programas de los 


instrueeiones que nos da 




Spectrum, Los nuevos 




sabers! serin ** " 


cl programa. (Como 
sabemos si somos de los 






M.P. 


seleceionados v mueho 






que los anteriores mils/ 


M.ilaga 


menos -11 tccha de 


definitiva, si tenemos 




menos S4, teniendo en 




publication. 






cuenta que el maxima 


Respuesta: La 


premio no? 




valor admisible es 255. 


adaptation de 
programas del ZX HI al 
Spectrum puede haceria 

del programa que 110s 




1. Carduch 

Tarragona 

Respuesta: Lo sabreis el 
















Prcgunta: En los 
juegos "Sabotajc" y 
"Billar americano". 


propone, solo tendra 
instrueeiones FAST y 


Prcguma: Soy un 
tengo un Spectrum desde 


dia de la Gran Final y lo 
poiireis comprobar. y en 




SLOW, v altera, algun 


haee diez meses. Su 


fecha del matasellos de 




publicados en l.i resist. 1 


que oiro PLOT. El resto 


antculo sobre protection 


Correos. No obstante. 




numero ] ] existen 


permanece inalterable. 


de programas contra las 


en nuestra rcvista, saldra 




varies errores. Desearia 




ropias (Ideas, ZX mini. 6) 


la li.sta tit los ganadores. 




que me enviiseis las 




intercsame, pero lie 


Os podemos antitipar 
que hay muy pocas 




respectivas aclaracioncs. 










observado un t'allo: y es 






P.M. 


Prcgunta: Quisicra 


que los programas se 


que si la luya lo es, casi 




Albacete 


hacer varias preguatas 


pueden c.irgar con 


seguro que ya teneis un 






sobre el concurso de 


MERGE, instruction con 


premio y bastante 
bueno, ya que los 




Respuesta: En 


programas: a) <Es 


la que no opera la 








auroejcLiicion. Asl cl 


enigmas cst.in muy bicu 




que has lotali/ado, solo 


obligatoriamenlc el 


unico metodo que 


ilotados en e.se scnlido. 





Spectrum puede con todos. 



iQulen nos gana en 


iQuien nos gnno en 


iQuien nos gana en 


iQuien nos supera en 


gamer? Eslamos per 


program as? Spectrum 


periterlcos? Ya son mas de 


niimero? Otra factor tener 


asegurar que ninguno. 


cuenta con mas de 5000 


50 los perilericos creados 


en cuentir te diremos que 


No olvides que lenemos un 


lilulos puOlicados a ntvel 


especialmenle para el 


yosonr,,i:sdetres 


Spectrum para cada 


inrernacional, cien de ellos 


Speclrum, pero no oreas 


mi Hones :us 


exigencia: dos capacidades 


esldn traducidos al 


que eso lermina ahi. Es 


microordenadores Sinclair 


diferentes(16Ky48K) y 


casletlano. 


muy raro el dia que no 


vendidos en todo el miindo 


tres modelos con dos tipos 


Noturalmenle sstos crecen 
casl de lorma constants. 
Una buena muestra es el 
voiuminoso colclogo de 
sortware que puedes 


aporece en el mercado una 


(y mds de 1 00.000 


de teclado (domestlco y 


noredad. Asi tu Spectrum 


Spectrum vendidos en 


profesional). 


guardara pora ti el mismo 
interes del primer dio. 


Espona) ino le parece esto 
una Buena rozon para 
confiar en tu Spectrum?. 




solicitor a tu distributor de 




Decidete, este orio tener un 




conlianza 




Spectrum es todo un regal 0, 
Los concesionarios 


' De venla en la Red de Concesionarios 


^■"■T lO*^^'^ 


l INVESTRONICA lienen pora ti 


INVESTRONICA. 






[ un monlon de ncvedades. 




SINCLAIR RESEARCH LIMITED hoce constar que no esla en condiciones de garanlizar el origen y calidad de 

aqueilos productos que no hayon sido comercializados en Espaha a troves de su dislribuidor exclusivo INVESTRONICA. S.A. 



GpSS 








js^sabagRffi 








Contorme a lo 


autorizados de 


a la nube que subc por 


cuyos anuncios 


prometido pot los 


Inveslronica, debemos 


el lado i/qmcrdo de la 


enconiraras en muchos 


editores del programa 


eniender que lii lo has 


panulla, el muneco sc 


Humerus de nuestra 


concurso -Un, Dos. 


adquirtdo en Lino de 






Tres... Responds oira 


ellos y por lanlo, alii le 








lo entregaran. No 


E. Colom 




responderan a las 


obstante, si le surge 


(Barcelona) 


^^^^»- 


preguntas y dudas dc los 


algiin lipo dc problema. 






participants. Esu 


dirigete a Belltons o a 


Respucsta: El 


Prcgunia: Siempre que 




Paraninlo Soft y sin 






por: 


duda te daran la 


nube que nos indicai 


picrdo todos los punios 








que llevo acumulados. 


' Prcgunia: He 

mtcmado ver los 




izquierda de la nube un 


incluidos los de la 




instantc —el justo para 


primera lasi Pienso que 


rcsullados de mi juego 
despucs de la grabacion 
y en la palilalia no 


Prcgunta: En varias 


salvar- anies de taerse. 
El programa esta hecho 
asi para preaentar una 


es demasiada casualidad. 
C. Monies Pinar 


aparece nada, cxcepto cl 
mensaje de OK final. 

Hugo Archanco 


cortado el programa, 
cspecialmeiile durante el 
juego de la segunda Case, 


jugadorcs. 


Rrspurvia. Mas que 
casualidad « mala 


(Pamplona) 


y en la pantalla ap.ircte 






Respucsta: Los 


Breatk-Cont. repeats, y 
no sc porcjue sucede. 


Pregunta: En cl poster 


i iiaiim cl programa esla 
preparado para cam bur 


rcsullados del juego 
qucdan grabados en 


P. Garcia Malco 


que acompana al cassette 
del Un, Dos. Tres veo 


icspuesia a! [iron de las 


forma de bytes y no en 


(Valencia) 


que hay una opcion 


cuerda^. 


Basic, ton lo dial no 




para el smteli/.ador de 




podras "vcr" nada. £1 


Respucsta: Observa 


voz Curtail, y nose 


^^_& 


mensaje de OK que 


que al ser dos jugadores 


como es y tampoco 




usualmenlc cl Spectrum 


los que manipulan el 


pueden mlormarse 


Prcgunta: iTiene algo 


summistra por palilalia. 


tecUdo durante el juego 


donde yo vivo. 


que ver cl programa de 


tc intorma que ha 


dc la segunda tase, es 




TVE con cl ordenador? 


rcalizado corrcctamcnte 


seguro qm en alguna 


C. Sanchez Garcia 


(Donde sc eclebrara fa 


la grabacion. 


ocasiou han sido 


Pa tones 


Gran Final? 




apretadas .'as tecUs 


(Madrid) 


S Morleo 




CAPS SHIR Y BRKAK, 




Leon 


^^^^^ 


!o cual equivale a paiar 


Respuesta: El 






cl programa Asi pues. de 


rintetkador de la voz 


Rcspucsla: Sobrc eslos 




aliora en adeiame. 


humana Currah es un 


remas ya respondimos 


I'regunCa; He 


prueba a u-ar la\ rcilas 


perit'erico de ordenador 


prcguntas en cl nil mem 


tomprado el programa 


de las ties Mas 


que esta capacitado 




Un, Dos, Tres, en Las 


supcriores del lei lado. 


para reprodutir sonidos 


insistimos en que ambos 


Palmas de Gran Canaria 


En cuaLquicr caso. 


vocales, que 


progranus son 


y mi cassette ticne un 


cuandn el programa se 


deb idame nte 


indcpendienlcs aunquc 


premio seguro y la 


bloquca, pucdes apretar 






cuestion es donde me 


la lecia CONT y 


palabras. El programa 


cordialidad entre los 


dinjo para que me den 


ENTER y cl juego 


Un. Dos, Tres esta 


profesionales de ambos 


el premio. 


seguira su curso normal. 


preparado para hablartc 


medios. razon por la 






si tii licnes un Currah 




S. Medina 




conectado al bus de 


Chicho Ibariez Serrador 


(Las Palmas) 


^^^^K. 


expansion del Spectrum. 


y TVE la posibihdad dc 






Si no hay un 


que los tlnalistas del 


Respucsta: Dado que 


Prcgunia: No he 


Disiribuidor terca de m 


iucgo dc ordenador, 


este juego solo esta a la 


conseguido salrar a los 


domitilio, pucdes 


puedan ser las parejas de 


venta en los 


battles para llegara las 


escribir a la casa 


uno dc los programas dc 


dimibuidores 


puenas, porque al llegar 


importadora Cccom.sa, 


television. 



CxcluaJvo pana lectonea de 



^sr 







I 



L -i:» ^ 
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Noticias 



Monitor 
para el QL 

l.i lirm.i Miilliln^iL. Limns. i p 

■ ■■ ..-. uirts CUB. Ii.i pri'stiiM. 

una nuev, KLiluLnl: el CUB 

I451/DQ, especial para el isso el 
QL. Adcmii de su Jiabudo en 
negro, uut haee jucgo unto en 
Ldor como en el nuierial de 



jnehode hand., de IS MHa 

t/ol ftrtcb d< 0.43 ...■ 

in v dispone de 









Mullilogic uunpki.i l.i s 
..i!... i. ii/.idi pm J lieeh 
[odoi tos modeloi que Ij 
miii de N pulgadas. 




Jornadas sobre inform a tic a y educacion 




id. u 



isicntes .i Ui jornadas), 
■on lugar en Madrid durante 
.i. 26. 27 v 28 de NoviemMe 
,X4 las Jornadas sobrt 

.in/a Baited y Media. 

,iii Just ion especial enlasis en 
ids realiMdas en 
aierra j- |-s|Mn,i, se 



iciai presenradas, 
■lecturas de 



Kkfia de 

,il prOCCS 

Simult 

lrib.ii.il- , 

SpectHiB 

lnforni.il 

■ ':■■■ 



icaeion Basica del Minish 

s programas, preparados p 
us tipos de orden adores, ti 
dos en el euadra adjumo. 
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Sinclair puntualiza 



Ante 



.ip.nia 



SnuLur no impurl.iJos por 
Investronica, esta lompaiiia nos 
mtbrmj ijuc Sinclair Research 
Limited si: dispone a poner en 
m.ircha una campana informativa 
basada en cuatro punlos: (1) El 
unico disiribuidor oficial de Sintlai 
en fclsparia es Investronica. (2) 
Sinclair Research no paralitica t'l 



Interface para 
Joystick 



l.stj prcvislo el lanzamicnto del 
CECOMSA-2, un nucvo intafate 
pata /i/yilitk do !j casa CECOMSA 
que prescnu como mayor novedad 
el tcner intorporada la salida de 
monitor. Preciti previMo: 4.800 pis. 



OBERCQMP 



CATALQGO 
NOVEDADES 






MA ■ ;■!■■ ■■::i." ■::; /■■■i^-m 



Ci 

COMPUTERS 



Representation grafica de 
funciones en el ZX Spectrin 



s = x 


+) 


v = 


y(+) 


bardada 




puede sir 


igualmeme 


En an p 
enrescnu 
nin die dc 


;;" 


JnTplTnc 


deunafiln- 

11.1 curvj, y 


RINT y P 


,OT, qui- permiten reallzar 
jracion pumual. Enetcito, 
epresonur la funcido y = 1 
lijizarsi- la lini.i ik pn.ijii.i- 


1'RINTAT.i 


-X,y ; .un 


imbolo»(p. 


abiendo 

icdiante 


dcfi 
1 u 


, Di:FFi\ 


amente «y» 
En la pan- 




habicndo dcrmtdo igualmente con 
anterioridad «y» mediante DEFFN. 
Ahora aparecera en pantalla una suee- 
si6n de puntos separados en absdsas 

En caso de vcnir exprcsada la kin- 
don en forma parametria «x» cnmo 
«y» prcviamcnte mediante DEFl-'N. 

2. Convenieneia de mar las ins- 
(ruccwnes DRA W en lugar 
de PLOT 



Si se interna eviiar que aparezta 
Unas discontinuidades en la vccindad 
dc los puntos (-a,88), (a,8H). ( 128 ,-b) 
y (128,b) no se podra evitar ententes 
una lemmata de pixeles en las 
in'iixiiiiiilades de los puntos c 




a lei 



a I oi 



'v.iqUC' 



table; 






La sigutente rutina permitira la i 
presentation gratica de la curva y = 
(x) segun el proccdimiento descrito 



Hay un problems que sc o 


bserva 


problems. 


con f'recuencia y que conviene 


resal- 


Dc cualquiei modo, la propia eon 


tar. En caso de que la represen 


acioti 


guracion cartesiana de la pantalla 






duce de lorma natural la cxptcsion 


dades", o sea, inconexion en 


re los 


forma eattesiana dc la luncion que 


puiihis de la curva. en regions 


n que 


desea representar. Esto se vera re for 


l.i pendienlc cscn v.ilor .ibsolul 


gran- 


do mas adelantc al tratar el tenia 


dc. Por dcmplo, considerese 




tos hordes de la pantalla. ■ 
El problcma que intcresa resolv 


a ; + b' 

elipsL. Si se dcsc.i que aparc/ca 
da en la palilalia su espusidon . 
ca ha dc ser. 




ahora es el de las ■■discominuidades 


nali'ti- 


para clio cs aprapiado el uso de la i 
rrucdon DRAW. La cuestion rad 
en que ahora no se considers a la cu 
teen ica me nte formada por una su 


(x - 128)' (y - 88> ! 
a' " b' 
Si se supone que es a < 128 




sitiii de puntos. sino teen icameiitc 1 
mada por una sucesiotl de peq'ucf 


<88 


segmentos. La linea de programa tt 


puede observarse la discontir 


uidad 




.mlcs paramenia, ya que en es 


ecaso 


DRAW 1, y- v 



Una cuestion marginal cs la relativa 
a la lentitud del Irazado. Esto puede 

longitud de los segmentos, o sea, ha- 
tiendo que n aumcntc de 2 cii 2, de 3 
en 3, etc.; pero ello al eosie, propor- 
cionalmcntc. de una perdida en la ca- 
lidad del trazado de la curva, 

3. Curves aMcrtas y cerradas. 
Umitaciones de la pantalla 



problcma de la discontinuidad e 
dependiente de las expresiones anali- 
■yn. Por ejemplo, eonsi- 



i ndo «y» previameme definida me- 
nte DEFFN v siendo «v» el campo 
■ quedoguardado ' 



i se acepla que una cl 
clla cuyos puntos 
■rdenadasque 
, entonees, mediante un conve- 
ne cambio de escala, es posible, y 
facil, representar toda la 
eriordela pantalla. Este 




seria cl caso dc la elipsc que se vienc 
utilizando como cjemplo y que, de 
forma cxplicira podria expresarse co- 
fa . 
y = 88+-|<a i -(x- 128)- 

y = 8S__/a*-(x- 128)' 

Entonces, siempre que sea a 428 y b 
<88, se puede representar l.i clipse 
completa sin dificultad mediante las 
linear de programa siguientes: 



a, por lo que se hai 

; de antemano cualci ami cavua 

dos puntos, con objeto dc evitar un 
eventual ERROR del lipo "Out of ran- 
ge-. 

Para ccntrar la cuestion supongasc 
la palilalia como una region del piano 
limitada por las rcctasy = 0, y = 175, y 
x = 255. El problema quedaria nota- 
blementc simplificado cuando la cur- 
va es simetrica y ademas esta centrada, 
ya que ententes los puntos de cortc se 
encucntran, por parejas, o bien en las 
rectas limftrofes horizon tales, o bien 

siempre equidistantiadas dc las esqui- 
nas. Peru puede ocurrir que esta no sea 

usuano, que desca representar una 

:a cualquicr.i no netesari.i- 



limitroles y acepiar solo aquellos que 
pcrlcncccn a\ borde de la pantalla, rc- 
tha/ando l< 



4. Procedimienlo general para 
resoher las probkmas en d 
borde de la pantalla 
Supongase un casoscncillodecurva 

abierta, como es el que correspotide a 

la cxprcsion implicita 



que 



(y - bf - 2p(x - a) = 
.orrespondc a una parabola 
cuyo v' 



Urada. 



Ene 



puede prescindir; 



e las lin 



Las curvas abiertas, o sea, aquellas 
que poseen puntos cuyas toordenadas 
pueden creccr ilimitadamente, no 
pueden scr rccogidas, obvtanlcntc, en 
talidad dentro de la pantalla. Se 



s puntos de corte eon 
el borde pueden escaten cualquierlu- 
gar del mismo que es precise predcur- 
minar. (Hay que liacer not ;ir que siem- 
pre es posible arrancar dc un punio in- 
tenor de la pantalla y avanzar priiaero 
trazando en un scntido ydespues en el 
otro, preguntando a eada paso si «%» 
esta comprendido entre y 225 e "•/•■ 
lo esta entre y 175, pero el procedi- 
miento. adetnas de scr poco elegante. 



llcilipo .1 



zado). 
:a general quesepropo- 
expresado brcvemenle en pala- 



punto(a,b|. Supongase adem.is que el 
para metro es positivo; entonces al 
an.ilisis conduce, bajo la hipoi.esis de 
que (a,b) es un punto interior de la 
pantalla. a las coiidusioncs siguientes: 
—La curva no puede cortara la recta 
x = 0> 



a de la esquina supe- 



r.i to note r el punio de curie stipu- 
le prncede del m< nlo que .se indica 



* Se expresa ~x* en funcion de «y» 




* Se expreM -y- en fuiicion di 


«X». 


Abora el punlo de cortc es (xi, yi) que 


Ahora sen.. 




Mta tambicn en cl borde dc la palila- 
lia, ya que o xi = 255 o yi = (o, acci- 
dentalmente, ambos). 


y=b + f'2p(s- a ) 




Conocidos los puntos extreme 


" Secalculan lospuntos decor 


ede 


ahora.el trazado de la curva se hace de 


la curva superior con lasrettas v- 


175 


aeuerdo ton la rulina rccogida en el 


yx = 255. 




apartade 2. Este proeediniiento es ex- 
tensible ualuralmcnie id casoen que la 


Las correspondteiites lineas dc 


pro- 


parabola teflga paramciro negative, o 


graoasenan 




a cualquicr curva de seyundo orden, c 
inclusoa una gran cantidad de curvas. 



[ : .[ punlo d 



: es (xS, y5), que 
lamente, en ei borde de la f 
porque est.i sucediendo qu 
ixs = 255,obicnys = I75{en 
es pueden darse casualmente 
casosde forma simult.inea. El 
:ria enlonces en la esquina). 



pan: 



Un 



lalisis paralelo eon I: 
c la parabola eond 
e programs siguienr 






n de la; 
.■I puim 



dc la recta con los bordes de la vecin- 
dad dc iftsesquinaS'Opuestas de la pan- 
talia.scgjinel'sigaodedicha pendien- 
te, y conocidos cstos puntos por el 
proccdimiento anteriormente apunta- 
do -sean eslos los puntos (xi, yi) y (xs, 
ys)- las lineas de programa corrcspon- 
dientcs al tra/ado serian 



proporcionando de un modo 
taneo" el dibujo de la recta. 



SERVICIO DE EJEMPLARES ATRASADOS 



flrv »«» ^L r«£ ^^ 





Completa tu coleccion de ZX. 

A continuacion te resumimos el contenido de Ids ejemplare 

alrasados en existencia. 



Disponemos de tapas para la 

encuadernacion de tus ejemplares de ZX 

PRECIO/UNIDAD 

525 ptas. 



****& 



n % Y 




Para hacer tu pedido, rellena el cupon adjuntc 
cortalo y envialo HOY MISMO a: 

ZX, Bravo Murtllo,377«28020-MADRID.Tel. 733 7 



atrasados de ZX s 



Tr,..10 i,;. 



mendable que los gnardes ordi^.-idamente i 

:s para ZX. Cada tapa puede convener 6 eiemplares 

e 525 ptas. 



Por favo 



siguientcs e\o 



ipl.Lio:-. atrasados da 2 
;iode250p!as.cadaur 
al precio de 525 ptas 



:• caduudari 



D cheque adjur 



ii larjeta [ I j 



Interbank 

i . ' i ; urn i 



DIRECCION .. 
POBLACION .. 

PROVINCIA .. 



DE TODA CONFIANZA 



ASIES: 



Por olgo es el Serviclo Oficiol INVESTRONICA para los productos SINCLAIR 

SIN SOBRESALTOS. 

Gracias al "COSTE ESTANDAR POR REPARACION" siempre sabes, de antemano, lo que cuesto 

el reparar tu microordenador SINCLAIR, una vez caducada la gorantia de tu equipa 

Sin presupuestos previos, sin gastos adicionales, tenga lo que lenga 

lu mjcroordenodor, por mucho que sea, el coste siempre sera el mismo segun el siguiente cuadro: 



Ademos lienes la garanlio n^wmm 
de que tu equipo sera reparado 1_^P^___ 

por experfos tecnicos I Spectrum 48K: 
y con piezas originates SINCLAIR ' 




.DELEGACIONESHISSA. 



C/. Anbau, n° 80, piso 5,° 1 
Tells: (93) 323 4) 65 - 323 4< 
08036 BARCELONA 

P." de Rondo, n.° 82, 1." E 

Tell- (958) 26 1594 

18006 GRANADA 

C/ Universidad, n.° 4 - 2.° 1 

Tell: (96) 352 48 82 

46002 VALENCIA 



C/. Son Solera, n.° 3 

Ms.: 754 31 97-754 32 34 

28037 MADRID 

C/. 19 de Julio, a 10 -2.° local 3 

Tell (9B5)21 88 95 

33002 OVIEDO 

Avda. deGosteiz, n.° 19 A- 1." D 

Tell.: (945) 22 52 05 

01008 VITORIA 

C/. Alares, n.° 4 - 5." D 

Telf.: (976) 22 47 09 

50003 ZARAGOZA 



C/. Avda de la Liberlod, n.° 6. Bloq. I." £ntl. Izq. D. 

Telf (968)23 18 34 

30009 MURCIA 

C/. Hermonos del Rio Rodriguez, n." 7 bis 

TeH.: (954) 36 17 08 

41009 SEVILLA 

G/. Trovesia de Vigo, n.° 32 ■ 1° 

Tell. (986) 37 78 87 

6 VIGO 



HORARIO DE ATENCION AL PUBLICO: de 9 h. a 1 3 h. (excepto Madrid: de 8 1 /2 n. a 1 7 I /2 h.) 

AMPLIAMOS POR UN ANO LA GARANTIA DE TU SINCLAIR 

Si tu microordenador SINCLAIR aun esta con lo GARANTIA INVESTRONICA vigenle v deseas ampiiarlo par un ano mas 

(a partir de la (echo de caducidad de la misma), noda mos senciiio: 

HISSA le omplia la garonlia por el mismo importe de lo que le coslario una reparation. 

Rellena el cupon con lodos los dotos y envialos, con lodo lo que se le indica, o lo delegation HISSA de MADRID . 

A los pocos dias recibiras lu NUEVA GARANTIA. 

CUPON 



D con domicilio en 

calle/plaza n.° telefono D.P, 

desea amplior en UN ANO la garantia de su equipo SINCLAIR, cuya GARANTIA INVESTRONICA aim esid vigente. 

Lo fecha de compro del microordenador fue el dia , de de 198 

Para ello adjunta, a este cupon, la GARANTIA INVESTRONICA y un talon nominal a HISSA por el siguiente importe, 

que sehala con uno X . — — i 

ZX 81 ; j^OftosJi-Enviaf e , cup 6 n Fimad0 , 

a HISSA 




S """>< 


„,--:' r: ' 


■i^^" 


^^ 






tfifin miciofiifia 

C/Miguel Yusie. n.° '6 ■ 28037-MADRID - Telf. 2G4 51 98 

SINCLAIR SPECTRUM 

— Ampliaciones de memoria 

— Reparaciones garantizadas 

Si su SPECTRUM SE CALIENTA 

(Menos aven'as, mas duracion, 
mejor funcionamiento.) 

TAMBIEN 

COMMODORE, 

AMI, COMPATIBLES 

APPLE E IBM. 




REGISTER LATELY 
CONTINENTAL, S.A. 
Balmes-297, pral. 2" A 
BARCELONA-6 
Telef. (93) 200 18 99 
lnformaeion: Sr. FERRER 



NUESTRA EMPRESA 
AL SERVICIO DE TODOS 



DEPARTAMENTO COMERC1A1-: 



ladotes de gi:sLion [gam 



DEPARTAMENTO DE ESTUDIOS: 



- Cursos Programa 

- Cursillos de grab! 

- Practicas con urdenadores 



Basic y Cobol. 



r a m ft 



Felicitaciones 






updon 5 y 1 


11 1 


irodutiri 


10 LET M=Oi CLS i CLEAR 


i iciones de Nividul de 


In-l'^iX" 




20 LET M=0: CLS i PRINT AT 1,4 


forma qui ■I'loiJi-imlnrsi'i 




I "PONER LOS DATOS" 








25 PRINT AT 3,4i"l.AN0 NAVIDAD 


r^'ur 1 .;,,;'^" 


(Spectrum 16K). 




",AT 4,7} " " 

30 PRINT AT 9,4;"3.ELECCI0N TE 
XTO" 

32 PRINT AT 7 , 4; "2. FIRrlANTE" 






Stt 


33 PRINT AT I 1 , 4; "4» MODELO 1/2 
36 PRINT AT 13,4; "5.EXPLICACI0 
















dS^nd/qJekgbentre 


rV j 




JJ 


N MODELOS" 

40 PRINT AT 15,4; "6. REPRODUCCI 








l,i 1 y 1.1 2. y r.'lluuil.i. un 


■ llj'-i 


b-S 


ON" 

42 PRINT «T 17, 4|"7. DATOS NUEV 
□S" 








mentedebsw intradncir-el 


/ 


\ 




/ A„,d™ 


»i«- \ 


45 .WK£Y*="1" THEN PRINT A 




^„hk\ 


T 21,0["AN0 NAVIDAD", AT 20,1;" " 


zxifi:::H3 






t INPUT A: PRINT AT 21, Oj" 

",AT 20, i| " "t GO TO 45 
4B IF INKEY*-"2" THEN PRINT A 
T 21,0!"FIRMANTE"s INPUT E*i PRI 
NT AT 21, 0|" ": GO TO 45 


Ijs Pur Ultimo iiilioiiiuiri 






el texto, para lo que dispo- 






50 IF INKEYS="7" THEN GO TO 1 


55 IF XNKEY*- n 3" THEN GO TO 3 


lizar el original. Una vet 
hecho todo esto, degira 
e«trc-elmodetel««12-que 






000 






65 IF INKEY*-"6" THEN LET M=t 






i GO TO 2300 













D G R fl m fl 



70 IF INKEY*="4" THEN PRINT A 
T 21,0| M l/2"l INPUT. Kl PRINT AT 
21,0)" »i GO SUB 5000 

75 IF INKEY*=>5" THEN LET K=6 
J GO TO 2000 
88 GO TO 45 
' 90 REM "CUADRQ 2" 

91 CLS 

92 PRINT AT 3, Si"*", AT 6,4;"*" 
,AT 7,8;"*", AT 11,4[''*",AT 14,6; 
"*",AT 19,5)"*", AT 19, 2;"*", AT 3 

' 4, 26;"*", AT 8, 24;"*", 



AT B,2B; " 



,AT 



1,27; 



,AT : 



19,23; "1 

93 PRINT AT 21, 

94 LET B-O 
93 PRINT AT s,0; "^' 

96 PRINT AT s,31; " ^' 

97 LET a-s+t 

98 IF a<>22 THEN GO TO 93 
100 PLOT 56,24: DRAW 32,112 
1!0 PLOT 56,24: DRAW 4B, 
120 PLOT 104,24: DRAW -12,112 
130 CIRCLE 88, 146, 10 

140 PLOT 97, 83: DRAW 6,-8 
150 PLOT 103, BO: DRAW 0,32 
160 PLOT 103,112: DRAW -7,-17 
170 CIRCLE 108,96,4 
180 PLOT 104, 24: DRAW 12,140 
190 PLOT 72,152: DRAW B, 16 
200 PLOT 72,32: DRAW 16,104 
210 PLOT BB,32i DRAW 2,104 
300 PLOT 128,24: DRAW 8,32 
310 PLOT 136,561 DRAW 10,12 
320 CIRCLE 146,75,4 
330 PLOT 154,72: DRAW 0,33 
335 CIRCLE 160,112,10 
340 PLOT 168,104: DRAW -16,16,P 
I 
350 PLOT 176,241 DRAW -10,48 
360 PLOT 166,72: DRAW 0,32 
370 PLOT 128, 24: DRAW 46,0 
380 PLOT 152,80: DRAW -8,8 
390 PLDT 176,1201 DRAW -16,16 
400 PLOT 163,3:.': DRAW -6,64 
410 PLOT 152,29: DRAW B,67 
420 PLOT 136,29: DRAW 4,27 
430 PLOT 138,56: DRAW 12,9 
440 PLOT 40,173: DRAW -24,-23 
450 PLOT 216,175: DRAW 24,-23 
470 PAUSE 100 
490 RETURN 

500 REM "CUADRO 1" 

501 CLS 

502 PRINT AT 2, 17;"*", AT 3,11;" 
*",AT 5,6;"*",AT 6,2Si"*",AT 15, 
6;"*",AT 17, 26;"*", AT IB, 3;"*", A 



T IB, 20;"*", AT 19, 1 1 ; "* '• , AT 20,2 
9; "*" 

303 PRINT AT 10, 13; "NAVIDAD" , AT 

12, 15; A 

504 LET 5=0 

505 PRINT AT a,Oi"^' 

506 PRINT AT s.31; " ^' 
307 LET s«=*+l 

SOB IF a<>22 THEN 60 TO 505 
509 PRINT AT 0,l,VWWiVAVWVV 



520 PLOT 
530 PLOT 144 
540 PLOT 184 
550 PLOT 144 
560 PLOT 
570 PLOT 112, 
380 PLOT 72,88 
590 PLOT 112. " 
600 PLOT 128 
610 PLOT 118 
620 PLOT 112 
630 PLOT 8B, 
640 PLOT 72, 



DRAW : 
!: DRAW 40, 16 
li DRAW -40, 16 
i4: DRAW -16,40 
4: DRAW -16,-4i 
i4: DRAW -40,-1, 
DRAW 40,-16 
2: DRAW 16,-40 
44: DRAW 0,24 
20: DRAW -24,48 
04: DRAW -72,64 
: DRAW -88,24 
DRAW -72,0 



650 PLOT BB.BO: DRAW -88,-24 



660 PLOT 
670 PLOT 120 
680 PLOT 128 
690 PLOT 136 
700 PLOT 144 
710 PLOT 16B 
720 PLOT 164 
730 PLDT 144 
740 PLOT 136] 
790 IF (1=6 THEN 



DRAW -72,-72 
DRAW -16,-48 
DRAW 0, -32 
DRAW 16,-48 
DRAW 72,-72 
DRAW 80.-24 
DRAW 71,0 
DRAW 72,63 
DRAW 24,47 
RETURN 



800 PAUSE 20: COPY I 

900 CLS 

903 PRINT AT : 
",AT 5,5; "*",AT B,3[" 
"*",AT 13,5("*",AT 16,4;"*",A1 
, AT 5,27; "*",AT 8,24; 



GO TO 90 



,AT 2, : 



AT : 



",AT 



904 PRINT AT 10,11;"NA 




12, 14;A 




910 CIRCLE 120,64.50 




915 CIRCLE 120,132,19 




920 CIRCLE 120, 132,4 




925 CIRCLE 112, 140,2 




930 CIRCLE 12B, 140,2 




935 PLOT 116,123: DRAW 


8 


940 PLOT 104.152: DRAW 




945 PLOT 112,132: DRAW 




950 PLOT 112. 16B: DRAW 


1 


955 PLOT 128,168: DRAW 




960 PLOT 112,16: DRAW 64 


962 PLOT 176.128: DRAW 





964 PLOT 176, 12B: DRAW 


8 



966 PLOT 176.128: DRAW 16,16 
968 PLOT 48,14: DRAW 170,0 

1000 RETURN 

2000 CLS ! LET M=6: LET A=B4: LE 

T ES="INTERESADO" 

2010 PRINT AT 4,3i"0PCIDN DE DIB 

UJOS ,l ,AT 6,5:"0PCI0N 1 " , AT B,3 S " 

DOSLE FORMATO" 

2020 PAUSE 100: CLS 

2040 GO SUP 300 

2050 PAUSE 500: CLS 

2060 FRINT AT 4, 3; "BESUNDO FORMA 

TO.OPCION 1": PAUSE 100: CLS 

2070 60 SUB 70 

2080 PAUSE 500: CLS 

2090 PRINT AT 4„3;"0PCI0N DE DIB 

UJOS",AT 6.5;"OPCI0N 2", AT S,^;" 

FORMATO SIMPLE": PAUSE 100: CLS 

2100 60 SUB 9O0 

2110 PAUSE 500: CLS 

2120 PRINT AT 4, 12; "TEXTO" , AT 7, 

O^'OFCION B TECLEA USTED EL TEXT 

0",AT 9,0;' , OPCI0N A INTRODUCIDO 




": PAUSE 200: CLS 


2130 


SO SUB 3300 


214C 


PAUSE 500: CLS 


2 ISC 


PRINT AT 10.2; "EXFUESTAS TO 


DAB 


_AS OPCIONES": PAUSE 100 


2160 


60 TO 10 


Z500 


LET 1*1=0: CLS 


2510 


GO SUB B 


2520 


PAUSE 50: COPY 


2530 


60 SUB Ul 


2540 


PAUSE 200: COPY 




GO TO 20 


300O 


CLS 


30 1 C 


PRINT AT 7,7:"A.TEXTO ORIGE 




9,7; "B.TECLEAR. TEXTO" 




IF INKEYt^'A" THEN LET W=3 


300: 


PAUSE 20: 50 TO 20 




IF INKEYS^'B" THEN CLS : P 


RINT 


AT 21,0j"TECLEAR EL TEXTO": 


INF 


JT U»: LET W=3400: GO TO 20 




60 TO 3020 


3300 


CLS : PRINT AT 6, 2; "FELICES 


NAVIDADES V VENTUROSO ".AT B,2 ; 


"ANG 


NUEVO LES DESEA",AT 7,3;" " 


,AT 


5,S;E» 


3310 


RETURN 


3400 


CLS 


3410 


PRINT AT 2,0;U« 


3420 


PRINT AT 19,9;E* 


3430 


RETURN 


5000 


IF K=l THEN LET B=500: RET 


URN 




50J.O 


IF K=2 THEN LET B=900: RET 


URN 




5020 


60 TO 5000 


9999 


SAVE "NADAL" LINE 1 




R D 



R r m r 



Gala 



xis 



Los encmigos han colo- ibu .1 plantar la ticnda. .Su mapa de la /.una en el 411c las minas y sondas. Para 
adoeufltrominaseo el lu- misi6n sera localizarlas. csllnindicatloslos63lyga- lanzaf una son da a uno.dc 
r dondc el conundaiiU' Parj dlo dispone dv un res donde put-den liallarsf iiislugaics basu ton iniro- 

alUsehalkraunaimna.M- 
U y.i cstaxla localizada, De 




S 



JO GO TO 9000 
lOOO REM Entrada Datos 
1010 INK 3: PRINT AT 17, 4; " INTRO 
DUCE LAS COORDENADAS" 
1020 PRINT AT 21,2;"Fila (A-G)"; 
1030 LET a*-INKEY»: GO SUB 3000: 

IF *»-"" THEN GO TO 1030 
1040 BEEP .2,30: LET a=CODE a«-9 
6t IF *>7 OR *<1 THEN BEEP . 3, - 
16: GO TO 1030 
1050 PRINT AT 21,13;CHR* (-32+C0 



^•E 




/ 


k 


53 


m 


DE aS) ; " :(;c]|jm.ia 


1-9 






1060 


LET at=INKEV» 


net 


SUB 


3000 i 


IF a*-"" THEN GO 


TO 


060 




1070 


BEEP .2.30: LET b 


■VAL 


at: I 


F b>9 OR b<l THEN 


BEEP .3 




50 TO 1060 








1080 


PRINT AT 21, 3C 


;a* 






1090 


PRINT AT 19, Oj 












"« 


PRINT A 


19,9 


"CORRECTO (s/n 


)?" 






1100 


LET a*-INKEY«t 


GO 


SUB 


3000: 



IF a*="" THEN GO TD 1100 
1110 BEEP .2,30: IF a*="n" THEN 
: BEEP .3,-16! 50 TO 1000 
1120 LET jug-jug+1: PRINT AT 0,2 
2s "JUG "ijug 
1130 PRINT AT 19,03 '■ 

JUGADA 
2000 REM Respuesta Ordenadar 
2010 LET rad=0: FOR i=l TO 4 
2020 IF a(i)»a AND b<i)=b THEN 
GO TD 4000 

2030 IF a<i)=a OR b ( i ) =ta THEN L 
ET rad=rad+l 

2040 IF ABS <a<i>-a)=ABS (b(i)-b 
) THEN LET rad=rad+l 
2030 NEXT i 

2055 IF kk=4 THEN LET kk=Oi RES 
TORE 2500 

2060 FOR i=0 TO rad: READ m: REA 
D n 
2070 PRINT AT 2*a,6+2*bs FLASH 1 

2080 BEEP m,ns NEXT i 

2090 PRINT AT 2*a,6+2*b; FLASH 1 

2100 READ mi READ n: IF mOO THE 

N BEEP tti,nf GO TD 2100 

2105 LET kk=kk+l 

2110 PRINT AT 2»a,6+2*bsrad 

2120 PRINT AT 21,0:" 

" : GO TO 


2500 DATA . 15, 16, . 15, 16. . 15, 16, . 
15, It, .15, 14, .3, 16,0,0 
2510 DATA .15,16, .15,16, . 13, 16, . 
15,11,. 15,14,-3, 11,0,0 
2520 DATA . IS. 16, . 15, 16. , 15, 16, 
15, 11, .15, 14, .3,16,0,0 
2530 DATA . 3, 16, . 15. 16, . 15, 16, . 
5, 19, .15, 19, .3, 18,0,0 
3000 REM Reloj 
3010 LET t-((PEEK 23672+2S6*PEEK 

23673+65536 *PEEK 23674 ) /SO) 
3020 IF t<60 THEN LET ttt-INT t 
s LET tt=0: GO TO 3040 
3030 LET tt=t'/60: LET ttt=INT (6 
0*(tt-INT tt>): LET tt=INT tt 
3040 PRINT AT 0,4;"Tiempo "jttj" 
, "sttt;" " 
3050 RETURN 

4000 REM Mina Destruida 
4010 RESTORE 4500s PRINT AT 2*a, 
6+2*b; INK 2; " R" 

4020 READ mi IF m<>0 THEN BEEP 
.6,m: GO TO 4020 

4030 IF c(i)<>99 THEN LET minas 





=minas-ls LET c(i>=99: IF minas= 




THEN GO TO 5000 




4040 LET kk=Os RESTORE 2500 1 GO 




TO 2120 




4500 DATA 20. 22, IB, 10, 13, 




5000 REM Final 




5010 RESTORE 5500 




5O20 FOR i=l TO 4 




5030 PRINT AT 2*a (i ) , 6+2*b (i > s F 




LASH li INK 2; " R" 




5O40 NEXT i 




5050 PRINT AT 19,0s INK 2; FLASH 
i; " 




5060 PRINT AT 21,0; INK 2s FLASH 




5070 PRINT AT 20,0; INK 2; FLASH 




t; " FELICIDADES 




3GB0- GO SUB 5300 




5090 PRINT AT 19,0; " 




PUNTOS 




5100 PRINT AT 20,0s" 




5110 PRINT AT 21,0;" 




5120 PRINT AT 21 , Bs "Tiempo y. JUG 




=» "sINT <(tt*60+ttt>*jug/60) 




5130 RESTORE 5500: GO SUB 5300 




5200 PAUSE 4e4s GO TD 8000 




5300 READ m: READ n: BEEP m,ni I 




F W<>0 THEN GO TO 5300 




5310 RETURN 




5500 DATA . 4. 1 1 , . 075, 12, . 4, 14, . 4 




, 19, .3.9. .075, 11, .5, 12, .07,-60, . 




3,14, .075, 16,-45,18, .45,24, .3, 16 




, .075, 18,-45, 19,. 45, 21,. 45, 23 




5510 DATA .4, 11, .075, 12, .4,14,-4 




, 19, .4,21,-075,23, 1,24 




5520 DATA . 4, 14, . 075, 14, . 4, 23, . 4 




,21, .075, 14,. 4, 23,. 4, 21, .075, 14, 




. 45,23, .6,21 ,0,0 




6000 REM Dibujo Tablero 




6010 BORDER 7: PAPER 7s CLS : IN 




K 0: PLOT 68,59: DRAW 0,96 




6020 FOR k=6H TO 180 STEP 16 




6030 FOR j=155 TO 59 STEP -16 




6040 FOR i=l TO 16 



NEXT i: NEXT j : BEEP 
DRAW 0,96: NEXT k 



R D G R 



BEEP .3. 15 
' FOR i=65 TD 71: PRINT AT 
>*2) -2,6iCHR* i: NEXT i 
' FOR l=J TO 9: PRINT AT 16 
NEXT i 



6130 BEEP 

6200 REM RelGj a Zero 

6210 POKE 23674.0: POKE 23673 

POKE 23672,0 
6300 GO TO J.000 
7000 REM Inicia variables 
7010 LET jUg-O: LET »inas=4 
7020 DIM c<4): DIM a(4)i DIM t 



00 REM Eaconde Minas 
10 FOR 1=1 TO 4 

20 LET an)=INT (7IRND+1): LET 
<i)=INT (9*RND+1> 
30 IF i=l THEN 60 TO 7570 
7540 FOR j=l TO l-l 

7550 if a(i>=»a(j) AND b<i>-b<j) 

THEN GO TO 7520 

7560 NEXT j 

7570 NEXT i 

7580 GO TO 6000 

8000 REM Nombre Juego 

8005 LET »=.3l LET b=.D7 

10 BORDER 7: PAPER 7: CLS : RE 
STORE 8500: LET c=-l: LET i =2 

JQ20 PRINT AT 21,11; INK 0( "Puis 

i ENTER" 



m r 



B040 PRINT AT i*2+l,ii INK is" ■ 




■ ■ ■ ■ ■ M H MM 


■ 




■ 




■ 


■ MM ■ MM ■ ■ ■ ■ 


■ 


■ ■ m mm m ■ ■ ■ ■ mmk 




B050 READ m: READ ni IF tn=0 THEN 




RESTORE 8500: GO TO 8050 




.8060 BEEP ra,n 




8070 IF 1=1 OR i=6 THEN LET e— 




B080>IF IN 49150=190 THEN GO TO 




7000 




B090 LET i=i+c: BO TO 8040 




B500 DATA . 4, 12, . 4, 19, . 2, 17, . 2, 1 




6, .2, 14, .4,24, .4, 19, .2, 17, ,2, 16, 








, 17, .4,14,0,0 




9000 REM Caracter tnina 




9010 RESTORE 9030: FOR n=0 TO 7: 




READ a; POKE USR "a"+n,a: NEXT 




9020 GO TD 8000 




9030 DATA BIN 00011000 




9031 DATA BIN 1 1 1 11 111 




9032 DATA BIN 00111100 




9033 DATA BIN 11100111 




9034 DATA BIN 11100111 




9035 DATA BIN 00111100 




9036 DATA BIN 11111111 




9037 DATA BIN 00011000 





1 HI- 


* ' 1 -.- 


■1 : 


J 


T 




x>'x:<t< 












. 1—2 _ 
V i H 1 ^. 






= ELIC IDhCE-, 



B TxKtT 


i-i_iiTiE J 




D J^il" 1 


i ; i ±. 


= gSftl 




Txixo 




G 2—1—1- 
FEL 


ICIOHDES 
UNT08 

K JUG = 2, 



Conicas 



8 1 dcbido a que Qbservacwnes ucerca delprogramu Conicas. 




m 



Etpmxrmmi n mhwaiik mie,e win,,! y e! Immmilal 

tie pur u. m> uilu por.'.ii ,ifli- (INPUT lim-a 1010). para a 

j»„; < r.ini l ia<»tl'< l to l i>m l .h<;i l;!R ,,,■„ ., ,■.„■, uta desde 1.,, 

,la del llttM . „mi «i,,Y ,ie /;„,.,,: HUO h M ,a la SOW, 

.:•■■ ..... ..■ . . 

./'■'"'■- '■'■■■" / - ■■ ''■■- ■ -■■ ' ■■ ■ ■:'.', ' .',■;'■ 

/W.v r«fc..T?w /„ /.,./,■*.-,,, ,/,■ mw eanopaudteme (d,-*dt 



L^^sz 



5 


BO TO 


4000 








It 


LET xs 


=2: LET 


y-3=3: LET 


yy= 


75: 


LET p*= 


"PARE LA 


CINTA" 


PAPE 


R 4: 


INK 3: 


FLASH 1 


. CLS : 


GO SU 


B 7990 










2C 


LET xs 


=2: LET 


ys=2: LET 


vv= 


120: 


LET pi 


= "Pulse 


una tec 


a 


: G 


SUB 9990 












PAUSE 


0: FLASh 


0: CLS 






4i 


INK 5; 


LET KS» 


4: LET 


s- 


8s 


LET 


yy=10: 


LET p*=' 


CONICAB 




6Q 



/./ inliii.i 




la linen 


It'll ),,: 




11701 


,le hi tin 


;;ifEf£2; 


fri, 


luha I 
o y a l 


>,<i>,: 


i. Y 
ic k 














hnca 120 


I"!! ™Z 


I «l»< 




enhs 


' 


iii.ii.; in/t/i 


Lis nttbm que 


, 








■:ie>um>!!a 


t las Ikf-tH se ku- 






r . 




ll.m , T ,„ 


dus per setrtmcias 




ir, v ,i,i 








i pnmera que not 








eiieuiilran 


)sesladela.£Iipse, 










Atjuielo, 


ienadornos pedira 




is parte 


'"'" 


Here- 



R D 



r fi m a 



SUB 9990 

50 LET :b=2: LET ys=2l LET yy- 
90: LET pS = P.A.Grande": GO SU 
B 9990 

60 LET K3=2: LET ys=2: LET yv= 
130: LET p$ = ,l 19B4": GO SUB 9990 

70 LET Ks=2: LET ys=2: LET f y = 
170: LET r*="Pli1=p una tecla": G 
SUB 9990 

75 PAUSE O: CLS 

77 BORDER 4: PAPER 4: INK 



80 PRINT 
B5 PRINT 



PRINT 



90 


PRINT : 


PRINT 


PRINT 


95 


PRINT " 


Las 


cyrvas son; " 


PR 


NT : PR 


NT " 


.-EL 


PSE " ' 


; 


-PARABOLA '" 


3 -" 


■UPERBQL 


00 


PRINT : 


PRINT 


ii p 


I SO *1 


mere, deseat 


□.": PRINT 


PRINT 






Ise 




10 


F'AUSE 


El S 








GO TO n 


00- ( IN 


EY*= 


1")+100 



REM =1 iDse 

LET Ha *3s LET V3=3: LET yy= 
ET p* = ,l ELIPSE": GO SUB =990 
PRINT AT 5,0:" Debes dar c 



2000 REN parabola 

2001 LET B==3i LET ya=3; LET yy = 
lO: LET pS="PARABOLA"; GO SUB 99 
90 

[NT AT 10,0: " Debes dar 



200" PRINT : PRINT : PRINT " E! 

ebe -=er - ni mayor de 4B. " ; " Pul 
se una tecla": PAUSE <.■: CLS 
2010 INPUT "DISTANCIA FOCO-DIREC 
TRIE " tP 
2013 IF p DP p-4B THEN GO TO 

202'.' FDR «=0 TO 90 
207.0 LET c-2tp*M 
2040 LET v=SOR c 
205..' PLOT I27*N ,87*y 
60 PLOT 127+K,B6+<-y) 



SO GO TO 7S 

01 LET xb*3i LET ys=3: LET yy= 
: LET P*="HIPERBOLA l, : GO SUB 9 



La primer a 



3004 PRINT : PRINT " Pulsa una 

aels" 

3005 PAUSE 0: CLS 

5010 INPUT "DI.STANCIA RAMAS ";a 

3013 INPUI "SEI1I-D1STANCIA VERT 
CES "jb 

:0 FOR y=-7S TO 75 





FOR ',: = -a TO a S 
LET c='. 1- ■ .. 


060 


LET y=SQR c 
PLOT L27+x,B7+y 
PLOT 127 + >;,87+< 
NEXT k 
PRINT AT 21.0: " 


tec 
070 


GO TO 73 



GO TO 75 

CLEAR 32255 

4020 FOR ::=3225i TO 32532 

READ a: POKE :. a 



4040 


NEXT 








405C 


DATA 


33 


15,91. 126,35,34.0.9 


1,11 


,60, 


J I.M.I 


38,1 


,41,41,41,237,7 




92,9 




8,51 


,4,91.58. 11,91 


4060 


DATA 


=,a 


9,9' 


.58, 10,91,50,8, 


91,6 


3,9,5 


1.5 


91. 


26,35,34,2. ^1 7 


,50, 


= .91, 


58,5,91, 


61,32,50,58,4,9 


4070 


DATA 


61 


32.- 


4,58, 14,91,71,5 


8, 12 


91.79.5E 


.10, 


91, 129.5,32,252 


. 50, 


0,91 


41-t 


0,9; 




. 91 










4080 


DATA 


5B, 


13,9 


1,71,58,9.91, 12 


8,50 


9,91 


47, 


2.91 


, 195,32 126 50 


5,91 


58,1 


.9; 


.71, 


58,9.91,30.7,91 


4090 


DATA 


58, 


13,9 


1,79, 197,205. 16 


4,126, 193 


as. 


7,9J 


,60,50,7,91, 13 


32,241 , 58 


8,4 


1,60 


,50,8,91,5,32, 2 


4 1 00 


DATA 








.64,. 


2, 16 


B,' 


.2, 1 


,58, 142.92,238, 


255, 


1.58 


14! 


.92. 


L60,71,58,8.91 


4110 


DATA 


.■■■i" 


,?4f 


111,58,7,91,25 


4, 192.208 


31, 


31,3 


1,230,31. 103,20 



ELIP5E 



HIPERB O l_ ( 



3,28 


203,29,20 


,?FI. 


\;- r> 9 - 


03 28 


, 203 


29 








4120 


DATA 62,88, 180 


103,58, 


142, 9 


2, 16 


h, 176, 119, 


8.7,91,71,23 


"1.7 2 


46,6 


4,103,120, 


1,31 


31,230, 


24, 18 


413<: 


DATA 103, 
JS,B,91,71 


i^'z 




•;;"; 


81. 1 


1,235, 33, 


56, 1 






4140 


DATA 79,6 


0,9, 




6 91 


, 203 


70.40,3, 1" 


6, 18 


201,47 


176,4 


7, 18 


201 








4150 


GO TO 10 








9990 


LET kx»(2J 


6-8* 


5*LEN p 


$> /I 


9992 


LET i=233i 


6: POKE i ,;■:>. 


X POK 


E i + 


, yy: POKE 




s: POKE 




ys: POKE i+4,B 








9994 


LET i=i+4 


LET 


w=LEN p 


% 


9996 


FOR n=l TC 


w: F 


OKE i+n 


CODE 


p*(n) : NEXT n 








9998 


POKE i+w+ 




LET w= 


JSR 3 


2256 










9999 


RETURN 









SINCLAIR QL 




APUCACIONES 



• BASE DE DATOS • LENGUAJES 

• TRAT TEXTOS • PASCAL 

• HOJA DE CALCULO • FORTH 

• GRAFICOS • ENSAMBLADOR 

;CON()CELOS! 
iAPRENDE A USARLOS! 



VISITANOS 



, Wrld- 



fAk 



R □ C R R m fl 




10 REM THEVENIN 


BY NICOLAS COT 


ELO 










22 FOR A=0 


TO 7 


READ 


Xi 


POKE 


USR "E"+A, X: 


NEXT 


A 






23 FDR A=0 


TO 7 


READ 


Y: 


PDKE 


USR "F"+A.Y: 


NEXT 


A 






24 FOR A=0 


TO 7 


READ 


Wi 


POKE 


USR "G"+A,W: 


NEXT 


A 






25 FOR A=0 


TD 7 


READ 


V: 


PDKE 


USR "rT+A.V: 


NEXT 


A 






26 FOR A-0 


TO 7 


READ 


U- 


POKE 


USR "I"+A,Us 


NEXT 


A 






27 FOR A*0 


TD 7 


READ 


P 


PDKE 


USR "J"+A,Pt 


NEXT 


A 






30 PRINT " 


Sesol 


jcion 


is 


circui 


tos par el 


teorema de 


he 


venin 


en corriente 


cant 


nua" 







35 


PAUSE 


300: CLE 










40 


GO SUB 1000 










50 


PRINT 


AT 1, If ' 


Este f 


s un 


ci 


rcuito tip 


cd para 


apl 


Ci 


r Th 


eve 
















60 


PRINT 


AT 16,1 


"Se 


trat* 


de 


hall 


r la caida de 


tent 


ic 


n en 


RL 


. Ahora introduce \ 


BlO 




par 


a 1 


as camponentes del 


circu 


to" 




70 


PAUSE 


400: CLS : SO 


SUB 


100 

















SO 


PRINT 


AT 1,13 


INVERSE : 


3 "T 


HEVENIN" 












90 


PRINT 


AT 16,1 


"Va 


or de 


la 


fuente de tension"? 


(AT 


9 


7; FLAS 


H Is 


'El" 












100 


INPUT 


q: PRINT AT 


9 


7jq 





105 


GO SUB 10O0 




lot 


PRINT AT 9,7 


q 


110 


PRINT AT 16, 


i "Valor de las 


res 


istencias Rl , R2, R3. R4, R5 (en 


Ohm 


ios) "; AT 4,8; 


FLASH 1; "Rl";ft 


T 4. 


14; FLASH 1;"R2";AT 4,21; FL 


ASH 


1;"R3";AT 9,13; FLASH 1;"R4" 


;AT 


9, 19; FLASH 1 


"R5" 


12< 


INPUT Ml PRINT AT 4.8;«: IN 


PUT 


ti PRINT AT 4 


14;t: INPUT y; 


PRINT AT 4,21;y: 


INPUT k: PRINT 


AT 


9,13;k: INPUT 


bi PRINT AT 9, 


19;b 






130 


ED SUB 1000 




135 


PRINT AT 9,7; 


q; AT 4,8;w;AT 


4, 14 


;t;AT 4,2I;yjAT 9,13;k;AT 9. 


19;b 






14C 


PRINT AT 16, 1 


; "Valor de RL 


(en 


Hhmios) 






";AT 9, 


29; FLASH 1; "R 


L" 






150 


INPUT j: PRIK 


T AT 9,29: FLA 


SH 1 


j: PAUSE 100 




160 


CLS 




170 


PRINT AT 1,1; 


"Ahora descone 


c tamos la carga (Rl_> y caleulamo 


s la 


impedancia total del circui 




sta desde la 




1BO 


PRINT "La Zth 


(Impedancia t 


otal 


o impedancia 


Thevenin) ?,era 


RI en paralelo co 


-\ R4 y en ser i 


e car 


R2 todo ello 


en paralelo c 


an R 




amos R3" 


190 


PAUSE 400 




175 


LET o=((w*k>/ 


( w+ k ) ) 


200 


PRINT AT 10,7 


"R1*R4/R1+R4 


■"I a 


PAUSE SO 




205 


LET p=a+t 




210 


PRINT AT 11,7 


d; "+R2 =";p: 


PAUSE 


50 




215 


LET n=((p*b>/ 


(p+b) ) 


220 


PRINT AT 12,7 


p; "*R5/"ip; "+ 


R5 = 


;n: PAUSE 50 




225 


LET m=n+y 




230 


PRINT AT 13,7 


n; "+R5 = "sm: 


PAUSE 


50 




240 


PRINT AT 15,7 


INVERSE 1; "Z 


th =' 


;m: PAUSE 100 


CLS 


250 


PRINT AT 2,2; 


Ahora hallamo 


s la 


caida de tens 


on en R5 que 




la Eth (tensi 


in Thevenin) ": 


PAUSE 200 




253 


LET i=( ( ( (t+b 


*k>/ (t+b+k) ) + 



255 LET o=q/i 

260 PRINT AT 7,7;-It=EI/Zt(tota 
1) =";o: PAUSE 50 

265 LET p=((o*k)/<k+[t+b) )> 

270 PRINT AT S,7;"It*R4/R4+(R2+ 
RE) ="jp;" (Corriente por R5)": 
PAUSE 50 

275 LET n=p»b 

280 PRINT AT 10,7;"Eth =";p;"»R 
5 = ":n: PAUSE 50 

290 PRINT AT 13.7; INVERSE 1;"E 
th =";n: PAUSE 30r>; CLS 

300 PRINT AT 1,1;"E1 nuevo circ 
uito quedara asi " 

310 PLOT 79,131! DRAW 76,0: DRA 
W 0,-55: DRAW -76,0: DRAW 0,55 

320 PRINT AT 5, 1 4: "c=l" j AT 8 19- 

BRIGHT 1;'T!";AT 9,19; BRIGHT 1;' 
"U";AT B,9; BRIGHT 0- >■■— ' . flT 9 9 



330 PRINT AT 4, 14; ' 
20; "RL"; jiAT S, II ; "E 
340 PRINT AT 14,2; "Solo qued. 



;AT 9, 



allar la 



-aida 



PAUSE 50 

345 LET o=( (n*j)/(m+j) ) 

350 PRINT AT 16 , 7; "ERL=Eth*RL/ Z 
th+RL": PAUSE 50 

360 PRINT AT 19,7; FLASH 1 ; "E e 
n RL ="!Q 



UN 



THEN 



410 STOP 
1000 REM CIRCUITO 

1030 PLOT 47, 131 j DRAW 101, Ql DR 
AW 0,-72: DRAW -181,0: DRAW 0,72 
: .PLOT 99,131: DRAW 0,-72: PLOT 
147, 131: DRAW 0.-72 
1040 PRINT AT 5.e;"[=)";AT 5,14-" 
t=l";AT 5,21;"[=r;AT 5.25; FLASH 
li"X";AT 14.25; FLASH 1; "X" 
1050 PRINT AT lO,5V""""|flT 11 5- 



J AT 



"IT; AT 






" U" i 



1060 PRINT AT 4,8;"Rl"jAT 4,14;" 
R2";AT 4,21 S "R3";AT 9,13;"R4";AT 
9,19;"R5";AT 9,29;"RL";AT 9,7;" 



r A m ft 



1070 


RETURN 












2000 


DATA 15, 


5, 1, 


1, 1 


1, 1 


, 1,240, 


240, < 


,0,0,0,0 


0,0, 


?nrs 


1?F 


, 12B 


12 


B, 128,259,0,0 


255, 


1. 1 


1 , 1 


,255 


0, 


126, 66. 66. 66, 66, 66 


,66 


Aft, 


66.6 


,6 


6,66 


66,66,66 


126 












OFERTAS ESPECIALES EXCLUSIVAS PARA LOS SOCIOS DEL 



club 

UUIIW II 

ISIAIII? II U 



zx 



IsKK 










cCffwgi. 69 council 


aa'BARceLOwni 




m. 




£.. 


■'.'J :■:: ,-.i'i|.' .,: 


'— 


W 
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INTERFACE DE DISCO PARA EL SPECTRUM 

La mejor noticia para los poseedores de un Spectrum 



Al fin los usuarios del Spectrum pueden 
lograrquesu computador alcancela 
operatividad y velocidad que s6lo el 
sistema operative- de disco puede 
proporcionar. 

Gran capacidad de almacenam lento, 
fulgurante acceso a los datos y mayor 
flexibilidadoperativa. 

Cinta casette 



La respuesta para el usuario del 

Spectrum. 

El interface Beta Disk.seconectadetras 
Spectrum para proporcionar una compat 



Shugarl. De hi 



jalquiei 



usado en computadoras). 

Wlicrodrive 
Son una solucion al problema al ser mas rapid' 
in basandose en sislemas 



discos en complete armonla. 

Sistema completo 

El Interface Bela disk de Silog se suminislra con 
todo lonecesarioparaconseguir.de forma 

marcha. Para ello, cada interlace se acompana 
con un disco de utilidades que le permilira, en 
forma ex tremadamt'i-.l" s-,Ku:illj. clecluar copias 
de discos en terosodeproQra. 
de un disco a olro. Los comandos de SAVE y 
LOAD son latalmente compatibles con el 

! y con el disco pudiendo dilereneiai 




nas Logicos Ge 

Avda SanNarcisti,24(Gerona) 
17005-Tel. 19721 237100 



R □ 



R ft m R 



El Espia 



Una. vtz cnriibdci en t.i uim Jc los pjsillos ik Ij or- ik uti tspia .1] que lendra 
jCLuk'mi.i dt policia, sit mi- gjjiizacion. Los raciare-S queaniquilar, Cuandomi'- 
si6n consisdrj en vigilai h.m deiectado la preseneia 110s se lo esperc, apatecer.i 




1 


GO SUB 5000 




2 


LET m-0 




3 
K 1 
10 


BORDER 7: PAPER 7: 


CLS : IN 


PLOT 100, 175j DRAW 


0,-100 


IS 


DRAW -75,-75 




20 


PLOT 155.175: DRAW 


0,-100 


30 


DRAW 75,-75 




35 


LET a=15: PRINT AT 


0,0; INK 


0|m 






40 


LET e=0: LET f-INT 


<RND*2> : 


LET 


b"12l IF f=l THEN 


LET b"19 


SO 


LET a*=INKEY*i LET 


a=a+(a*= 


"w" AND »<23)-<a*="q" AND a>6) 


51 


LET w=b 




52 


LET r=INT <RND*10> 


IF r-0 


AND e-0 AND »*<>" " THEN LET e* 


li LET w=Oi IF b=19 THEN LET e= 


35 


LET b-b*e 




56 


IF »<>0 AND <b = 19 


3R b=J2) 


THEN 


PRINT AT B,wj" "J 


^T 9.WI" 


"|AT 


10, wj" B t LET e-0 





60 


INK 2i PRINT 


AT 


19 


a;" « "| 


AT 20 


,aj" X ";AT 


21, a; ' 


" "! IF 


b>12 


AND b<19 THEN PRINT AT B,w 




AT 9, Mi " ":AT H 




" "1 INK 


5; AT 


8,b;"#";AT 


9,b 


"X"jAT 10, b 


62 


IF e<>0 AND 


INT 


(RND*4>=0 T 


HEN 


60 TO 150 








65 


LET K-a+ll IF a 




" AND M> 


12 AND N<19 THEN 


GO 


TO 


80 


70 


GO TO 50 








SO 


INK 3: BEEP 


.05 


'^5 


BEEP .0 


5,35 


BEEP .05.5' 


1 FOR 


:=17 TO 9 


STEP -1: PRINT 


INK 


4a 


AT z,ks" * 


"iAT 


z+l,x;" " 








90 


NEXT Z 








100 


PRINT AT e+ 


»** 




! IF x=b 


THEN 


GO TO 120 










GO TO 50 








120 


BEEP .05,10 


BEEP 


.09,50: P 


RINT 


AT a,K| " ";AT 9 


x; 




130 


LET m=in+10i 


PRINT 


*T 0,0! I 


NK 


m 



















10 


35 




/ 


* 


\ 


Dibujos 




Y.i puede crear sus pn 
piosgrafkosentresdimer 


- limile de las nreunfercn- 

- cias (Spectrum 16K). 


batlos' para ser utilizadi 
como enrradilla en olrc 
programs. Podra dirigtr 




KWX'V 


cursor hacia abajo, hac 
arriba,alosladoseinclus 


F? 


4J 


en diagonal, adcmas den 
tencrque preocuparse pc 
si se sale de la paatalla y 


■3r 


Tf 




1 / \ 


mUmdVla^imir^O 




340, que coinprueba 
limite de los paralelogr 
mos, y de las lineai 350 
395 que coinprueba 


:. ... , 

/*£ Miguel t?«d«, r .:Jr;i\ 




1 ' 


REM 3d CESAR 


GARCIA 




2 CLS : INI 


0: PAPER 7 


3 


REM intruccione 


s 




5 PRINT AT 


1, 10; " 


++MANDQS++ " 




10 PRINT AT 


3,5; "Derecha = S"; 


AT 4,5;"Arrib= 


= 7"jAT 5,5s"Abaj 


a - 6";AT 6,5 


"Izquierda = 5" 



140 GO TO 40 

150 BEEP .05,25: BEEP .05.10: F 
OR x = il TO 19: PRINT AT x,bj" " J 
AT x+l,b;" »": NEXT i< 

160 PRINT AT u.b;" ": IF b=a+l 
THEN BO TO 180 

170 GO TO 50 

100 FOR r=50 TO STEP -3l BEEP 

.06,zi NEXT z 

190 INPUT "Otra vez ?" ;aS: CLS 
: IF a*="s" OR al^'S" THEN RUN 

200 STOP 
5000 FOR 2-USR "a" TO USR "f"+7j 

READ a: POKE z, a: NEXT z 
5010 RETURN 

5050 DATA 0,56,56.254,124,124,56 
,56,6,0,0,56, 124, 124,56,56,254,2 
54,56,56,56, 126, 126, 102, 102, 102, 
1 02 , 23 1 , , , , , 8 , 8 , 28 , 28 . 28 , , 2 
8 , O , , 28 , , 28 , 28 , 28 , B, 8 



IS 


PRINT 


AT 8, 


0; " 


3IAG0NALES 


20 


PRINT 


AT 10 


5; "D 


=recha-arri 


ba = 


9"; AT 


11,5; 


Derecha-absia = 


i"iAT 12, e 


i "Izquierd 


i-arriba = 


4";AT 13,5 


"Izqu 


erda 


-aba ho = r" 


25 


PRINT 


AT 17 


5; "Grabar image 










33 






REM entrada de 


dato 










34 
35 


INPUT 


"Sal to de 


a 4igura 


INPUT 


"Coordenadas de sal id 


a 




Horizonta 


(0/255-1 a 


rgo) 
3B 


";x, "Vertical (0/168-ancho) 


INPUT 


"Radio ";r 


IF i->0 TH 


EN CLS : 60 SUB 


400: 


CIRCLE x,y 


*r: GO TO 60 






40 


INPUT 


"Lortg 


tud 


!l, "Anchur 










41 


INPUT 


"Colo 


de 


a tinta (0 


-6) 


:t: INK t 






45 


CLS 








50 


IF i->C 


THEN 


CLS 


: GO TO 60 


55 


PLOT > 


, y: DRAW 


a: DRAW 1 , 


0: DRAW 0.- 


a: DRAW -1 






D D R ft m ft 



60 IF INKEY*= 


" THEN 


GO TO 60 




1,2: LET y=16B-(z+a> 


70 IF INKEYS= 


q" THEN 


CLS : G 




320 IF v.'-z THEN BEEP .1,2: LET 


TQ 50 










BO IF INKEYS= 


w" THEN 


CLS l G 




K=Z 


TO 1 








325 IF y<z THEN BEEF .1,2: LET 


B5 if ink:ev«= 


*" THEN 


GO TO 5 






00 








340 RETURN 


90 IF INKEY4= 


r" THEN 


LET -a = k 




350 REM topes para 


-z: LET y=y-z 










110 IF INKEY*= 


i " THEN 


LET k=k 






+z: LET y=y-z 








360 IF K>255-(r+E) THEN LET :: = 


140 IF INKEY*= 


<?" THEN 


LET s= H 




255- ir + z> : BEEP .1,2 


+Z: LET y=y+s 








370 IF y>16B- fr+z> THEN LET y= 


150 IF INKEYS= 


4" THEN 


LET *=;< 




I6B-(r+E): BEEP .1,2 


-2t LET y=y+z 








360 IF «<r+l THEN LET !!=r + z: B 


170 IF INKEY*= 


'5" THEN 


LET k=k 




EEP .1,2 


-z 








390 IF y<r+z THEN LET y=r+z : & 


IBS IF INKEY*= 


•b" THEN 


LET y=y 




EEP .1,2 


-z 








395 RETURN 


200 IF INKEY*= 


•1" THEN 


LET y=y 




400 REM comienzo ci 


+z 










220 IF INh'EY*= 


'B" THEN 


LET n*H 




410 IF N<r OR :<>255-r THEN GO 
TO 450 


221 PRINT INK 


OiAT 0,G 


;"Situac 




420 IF y<r OR y>16B-r THEN GO 


ion:x = "| i:; " y=" 


Y!" " 






TO 450 


224 IF r>0 THEN GO SUE 


350: CI 




430 RETURN 


RCLE >:.y,r: GO TO 60 






450 PRINT AT 10,5;" C0OF:DENADA5 


225 GO SUB 300 






NO VALIDAS " 


230 PLOT K,y: DRAW 0,a: 


DRAW 1 , 




460 GO TO 3S 


0: DRAW 0,-a: DRAW -1,0 






500 REM grabar 


245 GO TO 60 






505 PRINT AT 0,0; " 


250 REM top 


ee psral 






elogramas 






310 INPUT "NOMBRE ? "is* 


300 IF x>255-(z+I) THEN 


BEEP . 




520 IF LEN 5*>10 THEN GO TO 51 


1,2: LET K a255-(z+l ) 









310 IF y>I6S-(z+a> THEN 


BEEF . 




530 SAVE sSSCPEEMS 



De r e c 

I = s ■> ■ 



n 



-yusacAcioms- 
-pssSsSSss. — — 

-SoFTWEM ' . T ,r» Pt BSONAL,pr>>" er '" 

,98S,o(r.c« . ■ " , oc orpor«« e ""___ 



W^-W-*" 



iffilltt 




ce , e „t M remt,uc,ones« sp6 . 

cont.rir,con,rnpor«n« c)one3 
rae ,des»rrollo«» u aore9 , 

(Sinclmr.nSX.Co^ n ,ericos, 

,or m «c.»" , . ' eS s \ { , c „,cos. e tc 



teres pors»»e (orm i„c«- 

™ a <lispontPi»<l=d 



R D 



R R m R 






PAPER 6: BORDER 6: INK 


: & 


RIGHT 1: OVER 0: CLS 




100 


LET h=G: LET v=BB: LET 


=25 


5: LET f=88: LET u=0: LET j= 


: L 


ET e 


=-l: LET t=0 




140 


DRAW 255. O: DRAW 0,175: 


DRA 


W -2 


55,0: DRAW 0,-175 




210 


FOR n=0 TO It LET x=RND 


200 


+20 1 


LET y=RND*100+;.0 




220 


PLOT >:,y: DRAW 0.RND*U70-y 


): DRAW RND*<230-x),0i NEXT n 




FOR n=0 TO 1: LET >:=RND 


200 


♦20: 


LET y-RNDIlOO+30 




270 


PLOT n,y: DRAW 0,-RND*y 


DR 


AW - 


<ND*,i,0: NEXT n 




900 


BEEP . 1 . 30 




1000 


LET a=IN 63486a LET b=IN 61 


438 






IOCS 


IF a=247 THEN LET j=l; 


LET 



u=0: GO TO 101 1 








1006 IF a=254 THEN 


LET 


j= - 


: LE 


T u=0: GO TO 101 1 








1007 IF s=251 THEN 


LET 




LET 


j=0: GO TO 1011 








1008 IF a=253 THEN 


LET 


Ll=- 


: LE 


T j = 








1011 IF b=254 THEN 


LET 


<==1 


LET 


t=0i GO TO 1100 








1021 IF b=251 THEN 


LET 


t=- 


i LE 


T e=0: GO TO l 100 








1031 IF b=253 THEN 


LET 


t=1 


LET 


e=0: GO TO 1100 








1040 IF b=247 THEN 


LET 


gi- 


1 LE 


T t-0 








1200 LET h=h+j! LET 


V =v+u 




1210 LET k=k*ei LET 


f*f+t 




1610 IF POINT <k,f) 


=1 THEN 


LET 



K=ks LET y=f: GO TO 


2200 


1620 IF POINT (h,v) 


=1 THEN LET 


;<=h: LET y=v: GO TO 


2200 


1800 FLOT h,v: PLOT 


k,f 


2000 GO TO 1000 




2200 FOR n-20 TD 50 


STEP Bi BEEF- 


.001, ris NEXT n 




2230 FOR n=60 TO 20 


STEP -2: BEE 


P .002,n: NEXT n 




2530 IF h>k-2 AND U 


k+2 AND v>f- 



2 AND v<-f+2 THEN 


PRINT 


5T 1.5; " 


HABEIS PERDIDO LOS DOS": 


GO TO 2 


4,30 








2600 IF 


=h AND y 


-v THEh 


LET q = 


Is GO TO 


2620 






2610 LET 








2620 PR I 


T AT 1.4 


"HA PE 


JDIDO EL 


JUGADOR 








2630 INPUT " Pulsad ENTER para s 


eguir "J 


LINE aS: 


RUN 







Funcion Booleana 



del Algebra de Boole. El 
pr-qgra* 



,n XOR twMJcan imrt 
cirX, ciundo el orden; 



blai 






m 



fodo. Es muy ulil e 
ilisis y disefio di^ cii 




100 REM TABLA COMPLETA DE U 


JA F 




UNCION LOGICA(boole) 






110 Din b < 6 ) : DIM g < 6 ) 






120 POKE 23609,80 






U30 GO TO 260 







135 


REM Sl 


br. calculo c 


. . 














140 


FOR i = 


1 TO v 






ISO 


LET c = 


INT (n/2) 






160 


LET b 


i> = (0 AND c=n 






ND c 










170 


IF c=i 


THEN LET ;■: = 


: GO 


TO 


180 


LET n = 


c 






190 


NEXT i 








200 


LET vs 


= " 000000 " 






210 


FOR i- 


x TO i STEP - 








LET vs 


=v*+STR* (bfi 






2-30 


NEXT i 








240 


LET vS 


=v*(LEN v*-v+ 








RETURN 








255 


REM Ac 


quisician date 






260 


BEEP . 


3,20: INPUT "Cuanta 




variables s 


on (hasta 6 po= 


ibles 


g 












270 


IF v<J 


OR v>6 THEN 




-> 


60 











r n 



r m r 



280 


PRINT 


t 








ahles i" 












290 


LET v* 












300 


FDR i = 


TD v 










310 


LET v* 


v*+CHR* 


96+ 








320 


NEXT i 












330 


PRINT vS 










340 


PRINT 












350 


LET q = 












360 


PRINT 


Escriba 


la sup 


-es 


□ 


n loi 


ica que desea c.a 










370 


PRINT 


NQTA :Si 


eg 


ns 


nR 


-E 


XCLUSIWA.es 


criba simple 


nn 


<=> 




380 


INPUT 


LINE a* 










390 


IF a*= 


><" THEN 


FT 


q = 




E 


T a* 


"X0fi"+ 












400 


CLS 












410 


PRINT a* 










420 


PRINT 


PRINT vi 


, "S 




& RI 


JT 


425 


REM Ca 


CLllDS 


430 


DEF FN 


f*()=a* 










440 


LET p= 


3 










430 


FPR m- 


1 TO 2'v- 










460 


LET p = 












470 


LET n = 


n: GO SUB 


140 








4B0 


IF q = l 


THEN GO 


Tn 


=>4f 






490 


FDR i = 


TO v 










HOC 


LET g 


i ) =VAL v* 










51C 


NEXT i 













XQ-R (abed) 






• bed 




» 




























































































mi 







Z para i n. p r 


i m i 




P a i a s«9t 







^ 


LET a=g (11: 


LET b=Q 


2): LET 




3) : LET d=g 


41 : LET 


e=gl5) : 


LET 








530 


GO TO 5B0 






535 


REM or-ewcl 


i5iva 




540 


LET a*=*'0" 






550 


FOR 1 = 1 TO 






560 


LET a*=!" 1" 


AND v*( 


J Oa*> + 


(ii 0ii 


AND v*(i)=a 


i) 




570 


NEXT i 






575 


REM Present 


icion re 


sultados 


5B0 


PRINT AT p+ 


:,0;v*,VAL FN fS 


590 


IF p=16 THE 


M PRINT 


AT 21,0 


;"Z 


sara imprimi 


r C para 




! STOP 






60<: 


IF P =16 THE 


i LET p 


=0: CLS 


610 


NEXT m 






620 


IF v<4 THEr* 


PRINT 


3T 21,0; 




ara imprimir 




STOP 






630 


PRINT AT 21 


0; "OTRA 


(s/n) ? 


640 


BEEP .3.20: 


PAUSE 




650 


IF INKEY*<> 


'5" AND 


NKEVSO 


"n" THEN 50 TO 640 




66u 


IF INKEY*=" 


3" THEN 


CLS : E 


TO 








670 


POKE 23609, 


>: CLEAR 





13113 
Oil 
1013 











a AMD b 






ab 




S 




00 









1 






10 






1 1 












C para £ e 


gu 




Diario 


santisimo para aquellos 
que posean el dc AS Kbytes 

y mas todavia para aquclloi 


Este programa le ayuda- 


H 


c Lcngan icmo comple- 






•.ntoc\microdrive.Uste- 


anotaciones del mes al dia. 


tr 


s entre comillas de las 


Esta dividido en once par- 


li 


cas 9892 a 9897 lian de 


ies, cada una con una r'un- 


in 


rodutir.se en modo gra- 


cion cspecitka. Tiene des- 


fi 


o si sequicre verbal lo- 


de una descripcion del pro- 


ro 


■ (Spectrum 16K). 


grama hasta una autodes- 






truecion al final que podra 






cambiarporun STOP para 


N 


jras grificas: 


mayor seguridad. Para eje- 


L 

L 


nea 9B92: ABC 


cutar cl programa tendra 




nes "U941 AGBH 


que saber la clave, que en 


L 


nea 9B"S: ULLM 


L 




este caso es «perro», pero 




neg 9B97; RST 


qucsepuedealtcrarvarian- 






do la linea 25. Una vez 






deniro del programs se 






presentara una scrie de op- 






ciones, dc las que tendra 




J.,,', V 


que elegir la 1 para empe- 




Kn 


KT* 


DIARIO- A continuacion 
se da codigo, fecha, con- 




H ,J 


I'J'J 




Li 


'i4 


cepto, canridad dc cntrada 
y camidad de salida. Estos 






/ \ 


valores se almaccnaran en 




/ Aulot: Jose Marti \ 


las variables a(m), bS(m), 




Vega, dc Sahaddl. \ 


c$(m), d(m) y e(m) respec- 


1 


LoBgitnd del progia- \ 


tivamente. Preparado para 




umtji-fijiifiii: '>S00. Prc-\ 


el Spectrum 16 Kbytes, el 


L 


mio: 5.000 pMs. ) 


programa rcsu ara in ere- 










, 


CLS : 


DII- 


a (366) 


DIM b*(36 


6,5) 


DIM c*< 


66. 71 : DIM d (366) : 


DIM 


e<366 


: DIM s< 1) 


DIM r (1> ; 


DIM 


tin 








4 


CLS 








5 


PAPER 


4: 


INK 0: BORDER 4 


15 


CLS : 


PRINT AT 7 


8; "LIBRO D 


E DIARID'" 






MARZO 1 


984 






GO SUB 


9000 


20 


INPUT 


"D 


me la c 


ave ? "ixS 


25 


IF x* 


>"perro" THEN NEW 


30 


CLS ! 


PRINT AT 


12i"0pcicjn 












35 


PRINT 


AT 


2 , 4 ; " 1 > 


Creacion 


40 


PRINT 


AT 


4,4; "2) 


Listado" 


45 


PRINT 


AT 


6,4i"3) 


Busqueda 


50 


PRINT 


AT 


B,4; "4) 


Correcci 


55 


PRINT 


AT 


10,4; "5 


*mpri m i 


60 


PRINT 


AT 


12,4; "6 


Sums i n 










65 


PRINT 


AT 


14, 4( "7 


Buima ga 












70 


PRINT 


AT 


16,4; "8 


Balance 


total " 









D G R fl m fl 



75 


PRINT 


AT 18, 4; 


9) 


3r 


.bar 




nta" 










80 


PRINT 


AT 20,3; 


10) 


Termin 














85 


INPUT 




opcio 






90 


GO TO 


o*I00 








100 


CLS : 


INF'UT "Desde q 


4B 


S5ie 


nto qulerea empe- z 


r la 








' "py 










105 


50 SUB 1900: LET k=2 






110 


FOR m 


y TO 366 








1 15 


INPUT 


"Codigai 


> ";a 


(m 


i PR 


INT 












120 


INPUT 


"Fachat- 


";b» 


(m 


: PR 


INT AT >:,4 


b«(m> : IP bl(m 




STO 


P 


" THEN GO TO 


30 






■ 125 


INPUT 


"conceptO!-> " 




PR I 


T AT 


, 10jcs(m 


: IF 


i* 


m>=" 


NOT 




THEN BO TO 1 


5 




130 


INPUT 


"Entradasi-.> " 


d 




PRINT AT x 


17id.(ml 








, 135 


INPUT 


"Sal Idas 






) i P 


RINT 


AT M,24je<m> 








140 


LET x 


x + 1 








145 


IF X> 


THEN CLS i 


_ET ■/.= 


' ISO 


NEXT m 








155 


GO TO 


30 








200 


CLS i 


PRINT AT 




'LISTAD 


0"i 
: 1(" 
210 


RINT AT 0, 12) 


LASH 
-Para 


I 


OVER. 


PRINT 


AT 10,3; 


•1 


ichero debes esperar 


a 


que 


SB 1 




a pan- tails y 








tee la 


■" "■ Dan 


e el or- 




y ultimo codigo ds 


oe as 




tos 


que quieres vmr . " 








215 


INF'UT 


"D»d«-> 


" 1 z . " 




ta-> 


220 


PRINT 


AT 20,1 j 


PULSA 


UNA TE 


CLA PARA CONTINUAR" 


PAUSE 0: CL 


5 : GO SUB 


2000 








225 


LET x 


2 








230 


FOR m 


i TO y 








235 


PRINT 


AT M,0;a 


ml iAT 




4;ti* 


<m> ; AT », 1 


3|c»(m) ;AT u , 17 


d 




T K, 


4;e(m 










237 


LET ;■: 


=:: + l 








240 


IF ;::■■ 


THEN 


AUSE 


:>: 


CLS 


: LET x-2: 


GO SUB 2 








245 


NEXT m 








250 


PRINT 


AT 20 . 1 : 


PULSA 




J<a te 


CLA PARA C 


NT1NUAR" 


PAUSE 


! CL 


S i GO TO 


-0 










CLS ; 


PRINT AT 


0, 12; 


'BUSQUE 


DA"! 

310 


PRINT 


AT 0,11; 


OVER 


; FLAS 
sftctua 


PRINT 


AT 7,4: " 







mtroduc 


ir e 










la p 


egunte." 








PRINT 


AT 20, 1; "PULSA UNA 


TE 


CLA PARA CONTINUAR": PAUSE Ol 


CL 


S 










330 


INPUT 


"Dime el cod 


go -> 




340 


GO SUB 2000: PRINT 


AT 3, 


>;a 


( m > ; AT 3,4 


b» tm> ;AT 3, 1 




; A 


T 3, 


7id<m 


;AT 3.24;elm 








PRINT 


AT 10,3; "-Pu 




NV 


ERSE 


1;" 


11 ; INVERSE 


"para 


ve 


r otro e 






360 


F'RINT 


AT 15,3; "-pu 


53"; 


NV 


ERSE 


1 ; " F 


»| INVERSE 


"para 


el 


egir 


otra c 








370 


INPUT 








375 


IF v*< 


>"o" AND 'v*< 


."0" AND 


v*-. :■ 


■f" AND V*<>"F" THEN GO TO 


370 










380 


IF v* 


"o" DR v*="0 


THEN 




LS ! 


GO TO 


330 






390 


IF v* 


"f " OR v*="F 


THEN 


C 


LS : 


GO TO 


30 








CL5 : 


PRINT AT 0,12;"C0RREC 


CI ON 


: PRINT AT 0, 11; OVER 1; 


FL 


ASH 






, corr 


sg-i 


PRINT 


AT 7,3; "-Par 


r un 


data debes darm 


• el G 


3di 


go caando te lo preg 








PRINT 


AT 20, 1; "FUL 


5A UNA 


TE 


CLA PARA CONTINUAR"; PAUSE 0: 


CL 


5 










430 


INPUT 


AT 5, 10; "cod 


go ■': - 




'Izz 


CLS ! 


GO SUB 2000 






435 


I NPUT 






PR 


INT AT 3,0 








440 


INPUT 


"Fecha:-.?- ";b*(m) : 


PR 


INT AT 3.4 






5T0 


P 


" THEN GO TO 30 






445 


INPUT 


"canceptoi- 


";c*( 


n) : 


FR1 


JT AT 


, 10:cS<m>: IF cf< B 


;" 


NOT 




THEN GO TO 


435 




450 


INPUT 


■'Errti-«d**i-> 


11 :d (m 




PR IN 


r AT 3 


17; d (m) 






455 


INPUT 


"Sal Idas:- ■ 


:etm> 


P 


RINT 










460 


PRINT 


AT 10,3; "-PU 


sa"; 


NV 


ERSE 


1; " a 


" ; INVERSE 


"para 


ve 


r otro elemento" 






465 


PRINT 


AT 15,3i"-Pu 


sa"; 


INV 


ERSE 


1; " F 


"; INVERSE 


"para 


el 


egir 








470 


INPUT 


v* 







475 


IF -/%■ >"o" AND 


v*<>"D" AND 


470 

480 


f " AND v*<>"F" 


THEN GO TO 


IF v*="o" OR v* 


="0" THEN C 


LS : 


GO TO 430 




490 


IF v*="-f " OR v* 


="F" THEN C 


L5 : 


GO TO 30 




500 


CLS : LPRINT TAB 13s. "LISTAD 


0": LPRI 




515 


INPUT "Besde-> 


;:, "ha=ta-> 


520 


LPRINT : LPRINT 


; "Cod Fecha 


Con 


p Entrada Sal i 


da" 






530 


FOR m=z TO y 


535 


LPRINT a(m) ;TAE 


4:b*(m) ;TAB 


9;c*!m> : TAB 17; d (.fit) 


;TAB 24;e<m> 


545 


NEXT m 




550 


LPRINT ' '"Sums 


de .ngreeos. 


560 


LPRINT "Sums de 


gastos 


570 


LPRINT "Balance 


total 


: t (l 






580 


PRINT AT 10, 2; ' 


PULSA UNA TE 


CLA PARA CONTIUAR": 


PAUSE 0: GO 


TO 3 


j 




60G 


CLE ! PRINT AT 


0,9; "SUMA DE 


INGESG5": PRINT FLASH 1 ; AT 0.8 


; ov 


:r 1 ;■ " 




PRINT AT 2,2; "D 


ime desde qu 


en urn 


=ro de cadi go he 


sta que nume 






607 


INPUT "D«sde-> 


"::■!, "h'asfca— > 


";y 






610 


PRINT AT 10,2; 


INVERSE 1: "- 






615 


LET s(l)=0 




620 


FOR m=r: TO y 




625 


LET s(I)=s(l)+d 


(m) 


630 


NEXT m 




640 


F'RINT AT 16.5: ' 


INGRESOS. . . . 




.'■; PAPER 6;s(l 


) i PAPER 4; " 


pts 








PRINT AT 20, Is ' 


PULSA UNA TE 


CLA 


ARA CONTINUAR": 


PAUSE 0: CL 


S : GO TO 30' 




700 


CLS I PRINT AT 


0.9; "SUMA DE 


GASTDS": PRINT FLASH i s AT 0,8; 


OVE 
705 






PRINT AT 2,2:"D 


iftie desde qui 






'■ ro de codigo qui-ere 


5 que sums. " 


707 


INPUT "Desde-> 


";z, "hasta-> 


?'Z 


PRINT AT 10,2: 


INVERSE 1 j '■- 



715 LET r ( 1 ) =0 

720 FDR m=:: TO y 

725 LET r I t)=r 11 >+e<m> 

730 NEXT m 

740 PRINT AT 16, 5: "GASTDS 

...."; FAPER 6;rtl>: PAPER 4s" p 

750 PRINT AT 20,1; "PULSA UNA TE 
CLA PARA CONTINUAR": PAUSE 0: CL 
S : BO TO 30 
BOO CLS : PRINT AT 0,«; "BALANCE 
TOTAL"; PRINT FLASH 1 : AT O.B: 



81' 


F'RI 


T AT 5, 




-Para 


cal 


cul a 


f> 


bal 


nee 




al pr 


mer 


d ha 


QL 


e ca 


cular 


O 


ingresos 


y 1 
















821 


LET 


t(l) =0 










H M 


LET 


t < l)=s ( 










B4( 


F'RI 


T AT 12 


? 


"BALANCE 


TOTA 

















< 1) THEN PRIN 



17. 7: "Superabit. " 




860 IF B(lXrtl) THEN PRINT 


AT 


17,7; "Deficit. " 




870 IF s(l)=r(l) THEN PRINT 


AT 


17,7; "Equi librio. " 




830 PRINT AT 20.1; "PULSA UNA 


TF 


CLA PARA CONTINUAR": PAUSE 0: 


r,i 


S : GO TD 30 




900 CLS 




910 SAVE "diario" LINE 4- 




920 PRINT AT 10, 3: "PULSA" ; I 


VF 


RSE 1;" V "; INVERSE 0; "PARA 


/ER 


IFICAR" 




930 INPUT ii4 




940 IF w*="v" OR w*="V" THEN 


V 


ERIFY "diario" 




950 IF w*<>"v" DR w*<>"V" TH 




GO TO 30 





R D 



200C 


PR 1 N 


T AT 0.0; 


Cod Fecha Con 




:ntrada Salida 






20H 


PR I N 


T OVER 1 


AT 


O.Oj . ___ 


2<.0. 


FOR 


P=0 TO 17 






203< 


PLOT 


30, pi PLOT 


T 2,p: PLOT 


131, 


il PL 


IT 190, p 






2 Up 40 


NEXT 


p: RETURN 




9B67 


REST 


3RE : FOR 






FOR 


b=0 


"0 7: READ c 


POKE IUSR 


CHftS a » + 






NEXT a 


9966 


DATA 








9B69 


DATA 


. Cl , 7 , ~. 1 


f-^ 


127 253 2E 












9870 


DATA 


G.24B.25: 


-> 


-4 235 "'31 












9871 


DATA 


3,7, 15," 


. (*■ 














9872 


DATA 


255. 255. I 


55 


2=i5.255. 23 


1, 25 


i.254 








9873 


DATA 


254.252,. 


40 


1-2.0.0.0. 


9874 


DATA 


3.7. IS, 3 


, h 


5 1-7 --55 2 


55 










9B75 


DATA 


252. 252.2 


■P 


248. "48.-4 


0. 24 


■ 224 








9876 


DATA 








9877 


DATA 


3.7, 15,62 


, 248, 224, 128, 


9879 


DATA 


247.231, 1 


4- 




26,252 








98B0 


DATA 


255,247. 2 


•Vt 














9BB1 


DATA 








98B2 


DATA 


24 , 96 , 1 28 





0,0.0,0 



B fl m fl 



B4 DATA 240,225,195,133,14. 2 
,48 

:85 DATA 224 , 1 92. 1 SB. 0, 0. O. O, 

B6 DATA 1, 3.7, 12, 24. 4B, 64," 12 

87 DATA 224, 192. 1,3.2. 4. B, 16 

88 DATA 96,192.128.0,0,0.0,0 

89 DATA 0.0.0.0.0.0.1,3 



Bus qu 
C o r 1" e 
iftpri 



B a Lance 



Programs muy litil p 


jquello 


euyo fuertt nt 


lil LKiu 


uca. E! progra 


pide el 


lumero atomic 


Jl'SplILS 


representa en. p 


Eatia l.i 




nica de 


aiomo cuy nu 


ro j torn 


co correspond 


inirodu 


ido. Admite 


meros e 


items desde c 



Quimica 




2 INK 7: 


PAPER is CLS s BORDE 


R 1 




3 POKE 2" 


609 , 40 


5 IF PEE! 


USR "a"=2 THEN GO 


TO 30 




10 FOR n=: 


TO IB: READ a.%: FOR 


m=0 TO 7 




15 READ a: 


POKE USR a*+m.a 


20 NEXT m: 


NEXT n 


100 LET m*= 


"Is 2s2p 3s-3p 4s3d 4p5s 4 


i 5p 6s 4f Sd 6 


P 7s 5f 64 7p " 


101 LET n*= 


"1131315315317531753 


1 104 DIM e* 


19,2) : DIM e<19) 


105 FOR n=: 


TO 19: LET e*(n)=mt 


( (n#2)-l TO 


n*2) : LET e<n)=VAL n 


*Cn>*2 





110 


NEXT n 




114 


PRINT AT 0.4s "EBTRUCTURAB E 


LECTRONICAS 1 




115 


INPUT 


numero atomico'?- "■ z 


120 


IF z<l 


OR z>118 OR zOINT z 


THEN G 


123 


LET k=i 


: PRINT AT 8,0; "nume 




jz: PRINT 


125 


FOR n = : 


TO 19 


130 


PRINT e«(n) sCHR* B; 


135 


FOR m=: 


TO e(n) 


140 


LET x=h 


+1: IF k~z THEN GO 


TO 160 




143 


NEXT m 




145 


OVER is 


PRINT CHR* (143+p(n 


150 


NEXT n 





R D 



r fl m a 



155 GQ TO 165 

160 OVER 1: PRINT CHR* C143+m) 

165 PRINT AT 21 , 0; "Otro? . (pul sa 

170 LET i»=INK:EY* ; IF i»=»« THE 
M GO TO 170 
172 IF i*="s" THEN CLS : GO TO 



173 IF i* 
ISO STOP 

9000 DATA 
92,0 

9001 DATA "p", 0,0, 192,160, 160, 19 



THEN GO TO 17' 
,0.96, 128,64,32 



"Q",0,: 



2,32,96, 160 



ifM sjo S pi 



',96, 128, 192, 128 



9004 DATA "a" , 2, 2, 2, 2, 2 O 
■'.7,1,3,4, 7, 0,0, O^c", 7,1*3 
0,0,0, "d", 1,3,5,7, 1,0, " 



",7, 



9005 DATA "-f- ' . 7, 4. 7 , 5. 7 . . 0, Q, - g 
", 7, 1,2,4,4,0.0.0, "h", 7,5,7,5,7 
0,0,0, "i",7,5,7', l', 7, 0,0,0. ";" 23 
,21,21,21,23,0,0,0 

9006 DATA "k" , 18. 18, IB, 18. 18, O. O 
.0,-1", 23, 17, 19,20,23,0,0,0, "m", 
23, 17,19,17,23.0,0,0, "n".17, 19.2 



CONCURSO INVESTRONICA/ZX 



■ ba dc program 
dos en !a redaction dc esta i 
sidn tan grande que bc hen 



cibi- Primeros Premios (J 15.000 ptas) 



M.i, dv i 



muchas deliberandi 
la-calidaddelostrab. 

mio.s do 1 I 5.(11)0 m- 



La 






Programa 


Anior 


Dl ... ., |.mlnb,da. 


Jorge Araujo Bemal (Barcelona) 
Javier Bernal Martin (Barcelona) 


»Bromatologia» 


Luis Anionic Menindez. Gijon (Asturias) 


«Cha-eha-cha* 


Jorge Rovira (Barcelona) 


Finalisias (50.000 ptas) 

-C. P. c» 
•iAstronomiao 


Antonio Prieto Osuna. Cabra (Cordoba) 
Ignacio Cervcra Lecumberri. Tudela (Na- 


«Taipan» 


Joaquin Ramon Lopez. Oviedo (Asturias) 



EN JUEGOS 





i 





®i4 





..#1*1 



%&&. 



■•* 






^ 



4\4\i 



R D 



Simulador 



con cientos tic pJSiiji-ros .) 
bordo y de repcnte el apa- 
rato se descontrola. Los pi- 
iotos han sui'rido una into- 



r a m fi 



pueno mas eercano, utih- 
zando ha teclas O y P, par.i 
controlar kl alturj; Qj W, 
paracontrolarlavelocidad 
yTpara 



. [),■!».■ 






los indicadores de que dis- 
pones: allura, veloodad y 
meiros que quedan para ia 
pisia. Primero, cargar el 
programs i y a continue- 






GRAFiCC 


s . 


linca 210; 


akbbc: 


tinea 215; 


P., F. 


linea <J51( 


ABBBC. 


H1H1H 




linea <*52( 


H1HIH 

i : 



Programs 1 




1 REM David y Silvia 


Br i 






7900 FOR 1=0 TO ?! READ y: 


READ 


x: READ MI READ V! READ u! 


READ 


t: READ 5S READ r 




9910 POKE USR "a"*z,y 




9920 POKE USR "b"+Z,H 




9930 POKE USR "<-" + :,« 




9940 POKE USR "d'+3,v 




9950 POKE USR "e»*z,U 




9960 POKE USR "*"+z,t 




9970 POKE USR "g"+?,3 




99B0 POKE USR "h"+z.r 




9990 DATA 0, 0. 56. 0, 16. 1 28, 




9991 DATA 0,0,56.0.16,126. 




9992 DATA 0,0,120,0,56,132 


'"" 















9993 


DATA 7,255,246 


", 


■ '. 


200, 105 


, 1B3 












9994 


DATA 9,255,2 




o. 


' J > 


08,123, 


9993 


DATA 127, 153 


24B, 


V 


,224.1" 


3,247 










9996 


DATA 255.255 




■a, 




0,248.2 


55,254 










9997 


DATA 127,255 


240, 


*W. 


0,^55.2 


9998 


5 

NEXT z 












PRINT AT 12. 




E) 






55 "^ grabando 




LOAD 




Programa 2 










t 


REM David O'Br 


f?n 






2 


REM Simulado 










5 


BORDER 5i PA 






i CLS 


7 


GQ SUB 4000 












CLS : PLOT 


ri 


DRAW 0, 119t 


DRAW 255,0: DRAW 







19 




255 . 










15 


LET a=1070 












LET s=l 












LET c-BOOO 











30 LET x-Si LET 


y=2i- 


33 LET k"0 




40 LET t=0 




ISO LET c-e-iO 




160 LET d=c-2000 




170 IF d<>0 THEN 


PRINT ftT 0,0; 


INK hf PAPER ljc; 


1 M Qo pista " 


I ED TO 190 




1B0 PRINT ftT 0,0; 


INK 6) PAPER 






200 GO SUB 9900 




210 PRINT ftT K,Vi 




215 IF t = l THEN 


^RINT ftT X+l,y 






220 PRINT ftT 1,0) 


INK 7( PfiPER 


Oi a; " Al tura " 




233 GO SUB 996.0 




240 LET b=1000-H 


100 


250 PRINT ftT 2.0 


INK li PftPER 


&;bt " Km/h 




«*«■■* ^^— ■■ 




1010 IF c<-0 THEN 


PRINT OT 15, 1 



,-T. 


„., 




la pista";AT 


17,3 


"as 


te acabo s 


. fuel"sAT 19 




e estrel 1 aste 


: GO 5UB 9500 


1020 


IF 


c<2000 ftND 


a':i20 THEN 6 


SUP 9B20 




1030 




a -100 ftND 


d>0 THEN GO 


SUB 975<. 






1 04O 




a=0 AND d;ij 


THEN GO TO 


9500 








1050 




D<-0 -AND a> 


:i THEN GO TO 


950i 










IF 


b"0 AND a=C 


AND c<2000 A 


ND t = 


1 THEN 50 TO 


9630 


1070 




d<=1000 ANI 


a<^500 AND t 




bN 


PRINT AT 5 


,01 INK 2: FL 


ASH 




Saca ol tri 






RD 


SUB BOOO 




1080 


IF 


c<2000 AND 


a<=0 AND t«0 


THEN 


GO TO 9500 




3000 


fin 


TO:. 150 




4000 


PR 


NT fit 0, 12 


"El avion" 


4010 


PR 


NT ftT 2,0 J 


Tli vi«jas,tra 



CRSCRDE CRSCRDE CRSCRDE CRSCRDE 




CRSCRDE CRSCRDE CRSCRDE CRSCRDE 















P R D 




R fl (71 fl 




4020 PRINT AT 4,7t"I*« islas Ca 

4030 PAUSE 250 

4040 PRINT AT 7, 4; "El piloto est 




4200 CLS 

4900 RETURN 

8010 IF INKEY*="t" THEN LET t = l 

: PRINT AT 5,0; FLASH 0[ INK 5| " 


a enfermo" 

4050 PRINT AT 9,2! :l Tu debes pilo 

4060 PRINT AT 11,7s "Los mandos s 
on"sAT 13,0i"<Q,P) para contrnla 
r la altur*"i PAUSE 50 
4070 PRINT AT 15,3;"CQ,W> para 1 

4075 PAUSE 200 




8020 RETURN 

9502 REM HHmHaiiii«HHM~ al 1 ' -gMUltlllllM 

9509 FOR h=x TO 21 

9510 PRINT AT "- ■■- " h.y 
i INK 2i PAPER fe; " JjiUkUUttU"! AT h-1, 
yi PAPER 5: INK 5; " 

9512 PAUSE 10 

9320 IF h=21 THEN PRINT AT 21,0 


40B5 PAUSE 250 

4090 CLS 

4100 PRINT AT 10, 14s "Prepar 

4110 PRINT AT 15,5;"Fulsa c 

41 15 PAUSE 


Xu 


2; PAPER 6; "aUUkJjjW: PAUSE t'SO 

9525 NEXT h 

9527 PRINT AT l:3,l|"Has aHBSina 

9528 F'AUSE 150 

9530 CLS i PRINT AT 10,0i"0tra v 



CONCON CONCOIM 




Revista Mensual 
PROGRAMAS 
DIDACTICOS 
COMENTADOS 
PARA EL ZX 
SPECTRUM 
Y CASSETTE 



*lniciacion ai Basic 
*Subrutinas 
*Juegos didacticos 
*Aplicaciones sencillas 
*Conozca el Spectrum 



P.V.P.: 500 PTAS. 



Suscripciones: SIFT. S.A. 

Aptdo. de Correros 46340 

28027 MADRID 
Telefono: (91) 404 68 79 (de 09 h- a 13 h.) 



i& 



&@ 



w> 



w 






REM Somos proleslonales 

HEM Da mejor servicio 

REM Tenemos tambien COMMODORE. ATARI 

IATMOS y COLECO, HARD y SOFT 
HEM CAMBIO acepla equipos de 2- mano 

al adquirir otro nuevo. 
REM Consu llanos tus necesidades. 



REHSHOP 

Ordenadores personales 



REVSHOF ' 

© 



| l -. B 



REM SHOP 2 

c/. Dr. Castelo, 14 - 28009 MADRID 
TeK. 91-274 98-13 
HENOVACION EN MARCHA. S.A. REM SHOP VALENCIA 

•J. Espronceda. 34 - 2» ml. - MADRID-3 c- Maestro Palau. 12 

Teletono (91] 441 24 78 Teletono (96) 331 53 27 

REM SHOP 1 REM SHOP-BARCELONA 

C Galileo. 4 ■ MADRID-15 c/. Pelayo. 12 - Entresuelo J 

Telefono (91) 44S 28 08 Tel. |93) 301 4700 



HARD QL 

1 QL 128 K 
32 Bits i 2 Microdi 
Tec I ado espafioi. 
1 Joystick 



HARD SPECTRAVIDEO 




SOFT QL (Incluidos) 

QL QUILL Tratamiento de texlos 

impresora. 

QL ARCHIVE Base de datos. Con lenguaje 



QL ABACUS. Hoja de calculo. 6.000 celdas 

programables. 

QL EASEL. Graticos. De barra. de tarta, de 



1 SV 328 


67.500 


1 Unidad doble discos con 




controlador y sal (da centron 


as..,.. 148000 










TOTAL 


279.054 




SOFT SPECTRAVIDEO 

Spectra Checkbook 2.300 

Spectra Diary 2 300 

Armoured Assault 2.300 

Spectron 2.300 

Nomis 2.300 

Sprite Generator 2.300 

Font Editor . 2.300 

Spectra File Cabinet 2.300 

Spectra Type 2.300 

Sector Alpha (cartuctio) 4 900 

Super Cross Force (cartuclio) 3.500 



REM NOTICIAS 



M FRANCHISING 



BOLETIN DE PEDIDO 



R a m a 









9540 IF INKEY*="s" THEN GO TD 1 




9880 IF iNKEY*="s" THEN GO TO 1 


9350 STOF' 

9800 REM ■»>::Er::::„ir ! =:-tnHHMMi 




9B90 STOF 


9902 REM inkey* 


9S10 PRINT AT 20, k) "It" jflT 21, k;" 










9910 IF n*-' , o" AND >:<2i THEN LE 








0: PRINT AT 21,30i" '■ ; AT 20,30; 




9920 IF x>20 THEN LET ::="■ PRIN 


9B13 RETURN 










9930 IF n*="p" AND m>8 THEN LET 


T k-0 




K=x-1: PRINT AT x+l,y;" 


9B25 PRINT, AT 21, k: INK Ol PAPER 




LET a=a+10 


5| ■'■■"; a- 20, k)"^" 


















9630 PftINT AT 12,7; INK 1; FflPER 




9960 LET n»=INKEY* 














9S50 BEEP . i,X| NEXT x 




9980 IF n*-"w" AND s>l THEN LET 


9860 PRINT AT 15,5; "Otra v«" 




9990 RETURN 


9870 PAUSE 0: PAUSE 






PRECIO DE LANZAMIENTO EXCEPCIONALMENTE A 5.700 Ptas. 
CONTROLADOR HYPERTRON CT-1 

EL COMPLEMENTO IDEAL PARA SU SPECTRUM 

Proporciona a su ordcnador las caracterisliuas que le f'allaban 




R D 



Planetas 



r R m a 






■ ■ 

■ plfMetrs for r^nco 

■ ■ 


■ 


19 

20 REM NOMBRES 




30 DIM N*<7,B) 

40 PRINT "PLANETAS ?" 

50 FOR A=l TO 7 




60 PRINT A, 

70 INPUT N*(A): PRINT N*(A) 




90 NEXT A 
90 CLS 
99 





lOO 


REM DATOS INICIALES 


101 




110 


DIM A(7,9) 


120 


FOR 0=1 TO 7 


130 


PRINT "^J™. ";N*<01;" ■"■"■" 


140 


FOR D=l TO 9 


150 


PRINT 0; " ";D. 


160 


INPUT A(C,D)i PRINT AlCDI 


170 


NEXT D 


180 


CLS ' 


190 


NEXT 


199 




200 


REM INTRODUCCIDN DE FECHA 


201 




205 


POKE 23658, Si F'OKE 2ofc09, 10 


Ot BORDER l! INK 7: PAPER Is CLS 



rNOVEDADES ANO NUEV0/(ELPRINCIP0 DEL FUTURO)J 



I speaker system (45K! 



programa y sin neoesldad de costosos accesorios 

Inuomprenslble acento Ingles y de complicada pro 

gramacion, podraa incorporar VOS EN IMTBLIGIBI-E 

CASTELLANO a tus propios programas, 9lmplemente 

escrlbiendo los textos LNCREIBLE 

jCOMPRPEBALOl . ¥ POR SOLO 3. 



Programas educattvos nl 
teles e.g. b. 148k) 



(48K). 4.000 — ptaa. 

:xt V.6 (48K). 4000,— ptas. 
ador B.I.T.I. (48K). 

ABIC [48K). 3.000,— ptas. 
; DEVPAr (48E), 3.600.- ptas. 
r pascal (48K). 6.000,— ptas. 

-ts-CHKBP I48KJ. 3.000 — ptas. 



BL SUBMARINO AMARILLO (46K) 



Hecoga los teBoro*. evita los peligros del tofiS'o del ir 
de los laberindps y encueritra al oamino a travea 

as las pantallas del juego b&sta llegar a la sirenaB 

■ ■ ■ : 

Ible joystick t.ipc VENTAMATICKEMP9T0N.I 



AMPLIFICADOR DE 8 

i nuevo diserio extremadamente 
'activo, compacto, veraatil y prac 
o con control de volumen y alta 
k incorporados, pulsador de RE- 
SET y conmutador SAVE/LOAD. 

" 500,— ptas; 



f 1 

I 




prcgramar. No se desprograma al 1 
apagar el ordenador y admtte 8 dl- 
S tipos de disparo . 



SPECTRUM 48K + SIMULA- I 
DORDEVUELO 4- BANDERA A I 

duadros + Cookie + jET-lf 

PAG + PSST + AJEBHEZ - 
OTHELLO + BACKGAMMON [| 
+ SPECTRUMANIA 



INTERFACE CENTRONICS + 
RS232 INTELIGENTE + CA- 



i programas 
ocupa memoria del ZX-SFECTRUM 
Permits diractamente el volcado de 
pantallas y graflcos con la mayoria 
" s impresoras disponibles en. el mer- 
cado, inoluao en color. No es compa^ 
Mble con las versionea actuales da lo£ 
programas de geation de VENT AM A- 
TIC. 14.000,— ptas. 

Cable RS232 Para Interea- 
ce Centronics + RSS32 in- 
teligente S.500. 



INTERFACE MIDI CON SOFT 

WARE 



Permite controlar, teclados rnuelca- 
les electronioos. sin tet Isadoras, ba- 
terias electranicas.etc. con entra- 
da/sallda MTDI inccrporada. El soft- 
ware Incluye 8 pistas de 3.000 even- 
.llzacion do partitura en 
pantalla, comandos da edlclon. asig- 
nacifin de oanalea MIDI. etc. 

TECLADOS MUSICALES 
ELECTRONICOS CON MIDI tarn- 
disponibles dasde menos de 
100.000- 



JLO 38.000 I'TAR. 



■iiernos, aoi 
E8PEC1AI.ISTAS DEI 
lo tenemoe tO( 



C6rcega. 88, entlo. 
'39- BARCELONA 
Tel. (93) S30 97 90 
Metro Entenza (linea Vl 
41, 87, 16. 54, 66 
Envios contra -reembolsc 
Eapana 

' da. de Rhode, 253 
y.Ot'KH fOirona) 



D G FY fl m fl 



210 


FOR x=0 TO 7: READ G: POKE 


USR 


fir'+x.Bi NEXT x 


215 


CLS : PRINT AT 2,2;"INTR0DU 


ZCA LA FECHA" 


220 


PRINT AT 3,2-, "DIA (en numer 


230 


INPUT Dli PRINT DI 


240 


PRINT AT 5,2; "MES (en numer 


250 


INPUT ME: PRINT ME 


260 


PRINT AT 7,2; "ANO len numer ' 


270 


INPUT AN; PRINT AN 


280 


PAUSE 50: CLS 


290 


GO SUB 2000 


299 




300 


REM PLANETA DESEADO 


301 




310 


CLS : PRINT FLASH 1 ; AT 2,2 


; "7PLANETA?" 


320 


INPUT P* 


330 


CLS : PRINT AT 10, 0; "ESPERA 


ESTDY QPERANDQ PARA ENCONTRAR " 


|>* 




340 


FOR A=l TO 7 


350 


IF NS(A,1 TO 3>=P*U TO 3) 


THEN 


LET F=A 


360 


NEXT A 


369 




371 




379 


REM LW=LONG PER 


IHELIO 


380 


LET LW=A(F,6)+DIAS*A(F,7>/3 


65 


- 


3S5 


LET LW=(LW/360-INT (LW/360) 


>*360i LET LW=LW*PI/1B0 


389 




3B9 


REM LD=LONG NDDP ASCENDENTE 


390 


LET L0"A(F,4)+D!£AS*A(F,5)/3 


65 




395 


LET L0=(LG/360-INT (LO/360) 


X360: LET LO=LO*PI / ISO 


398 




399 


REM LT=LONGITUD TIERRA 


400 


LET to=193: LET p=365.242: 


LET e=0.0167 


410 


LET SUB=0: GO TO 3000 


420 


LET LT=fi-PI/2: LET RT=r 


424 




425 


REM LP^LDNGITUD DEL PLANETA 


430 


LET to=A(F,l): LET p=A(F,2) 


: LET e=A(F,8> 


440 


LET BUB-30I SO TO 3000 


450 


LET LP=fi+LO+LW: LET RP«r*A 


(F,3 




454 




455 


REM LI=LONC. AL 1NFINIT0 


460 


LET L1=LT-LP: IF LKO THEN 



■(RT---2)- 



LET L1=ABS (Li+2*PI> 

470 LET DIS=SQft ! (RP' 
2*RT*RP*CQS Ll> 

480 LET ATP=ACS ( <RT-RP*COS LI 1 
/DI5) 

490 IF F>2 THEN GO TO 530 

500 IF LKPI THEN LET LI=LT+PI 
-ATP 

510 IF L1>=PI THEN LET LI=LT+P 
I+ATP 

520 GO TO 600 

530 IF LKPI THEN LET LI=LT-AT 
P-PI 

540 IF L1>=PI THEN LET LI=LT+A 
TP-PI 

599 

600 REM CAMBIO A ASC. RECTA 

601 

605 IF LKO THEN- LET LI=LI + 2*P 
I j GO TO 605 

610 LET ALF=23. 45229444- (AN-190 
0)*0. 46845/3600 

613 LET DEC=(1B0/P1> *A5N (SIN ! 
ALF*PI/1B0)*SIN LI) 

620 IF LI=PI/2 OR LI=3*PI/2 THE 
N LET AR=LI*12/PI: 50 TO 670 

630 LET AR=<180/PI)*ATN ((COS ! 
ALF*PI/180) >*(TAN LI>> 

640 IF AR<=0 THEN LET AR=360+A 
R 

650 LET AR=AR/15 

660 IF PI/2<LI AND LK=PI THEN 

LET AR-AR-12 

665 IF PKLI AND LK3*PI/2 THEN 
LET AR=AR+12 

666 

667 REM INC. DE LA TRAYECTDRIA 

668 GO SUB 4500 
66? 

670 PRINT FLASH I; AT 14,0;" AP 
RIETE UNA TECLA PARA P05ICI0N RE 
LATIVA APROXIMADA": PAUSE 

671 

680 CLS 

690 IF F<=2 THEN GO TO 710 

700 LET W=B5: LET Z=85*RT/RP: G 
TD 720 

710: LET Z=85: LET W=B5*RP/RT 

720 CIRCLE 120, B8, Z 

730 LET X=Z*COS LT: LET Y=Z*SIN 

LT 

740 PLOT 120, 88i DRAW X,Y 

750 CIRCLE 120.BB.W 

760 LET X=W*COS LP: LET Y=W*5IN 

LP 

770 PLOT 120, BB: DRAW X.Y 

780 PRINT AT 1 , 2; "AR="; INT (AR) 
;•■ HORAS ";INT ((AR-INT (AR) ) *60 



790 PRINT AT 2,2j "DEC=";DEC 



840 INPUT "MINUTQS";MIN 

350 INPUT "LONGITUD ESTE": 

B59 

B60 REM HORA SIDEfVEA L0CA1 



900 IF W*="V" THEN LET DIF=2 

910 REM DIftS DESDE AL 21 0E MAI 
ZO 

920 LET DT=DIASj LET DI=21: LE 



ME=3; 50 SUB 2000 

930 LET DT=DT-DIAS 

940 LET HSL=(HOR+MIN/60>-DIF+DT 
*3.9425B3/60+DL/15 

949 

950 REM ANGULD A VARIAR 

951 

9&0 IF AR<=HSL THEN PRINT AT 5 
, 2f"EL ANGULO HDRARIO ES DE ";IN 
T iHSL-AR);" HORAS " ; ( (HSL-AR) -I 
NT (HSL-AR) ) *iO; " MINUTOS OESTE" 
: GO TO 1030 

970 PRINT AT 5,2; "EL ANGULO HDR 
ARIO ES DE";INT (AR-HSL) ; "HORAS" 
; ( (AR-HSL) -INT (AR-HSL) ) *fiOj "MIN 
UTOS ESTE" 

1030 INPUT FLASH 1;"DESEA DTRA 
HORA (S/N)";V» 

1040 IF Y*="S" THEN GO TO B30 
1030 INPUT FLASH 1;"DESEA OTRO 
PLANETA"; YS 

iOiO IF Y*="B" THEN GO TO 215 
1070 STOP 




ELBflSIC 
del Spectrum 

• 263 pSginas 

• 153 ilustraciones 

• Numerosos ejercicios resueltos 




r R m r 



1999 

2000 REM SUBR. DIAS TRASCURRIDOS 

2001 

2010 LET P=0 

2020 FOR 1=1 TO ME-1 

2030 LET X=31 

2040 IF (1=4 OR 1=6 OR 1=9 OR 1= 

11) THEN LET X=30 

2050 IF 1=2 THEN LET X=2S 

2060 LET PxP+X 

2070 NEXT I 

2000 LET DIAS=DI+P+365*<AN-19BO) 

+INT ( (AN-1990)/4) 

2090 RETURN 



CALCULO DE ANGULOS 



to+DIAS) . 



2990 REM i 

2991 

3000 LET t: 

o+DIAS) /p) )*p 

3005 LET u=0; LET INC=40*PI/ 1 BO 

3010 GO SUB 4000 

3020 IF tl>t THEN LET u=u+INC: 

GO TO 3010 

3030 GO TO 3030 

3040 GO SUB 4000 

3050 LET inc=inc/2 

3060 LET u=u+(SGN ( t 1-t ) > tine: G 

TO 3040 

4000 LET t=<p*(Li-e*SIN (u>)>/(2* 

PI) 



4030 


LET 


■f i=2*ATN (SOR 


I <l+e)/(l 


-e))*TAN 


(u/2) ! 




4040 


LET 


r=li-e^2) /<1+e 


»COS +i ) 


4050 


GO TO (420+SUB) 




4494 








4495 


REM 


INC. DE LA TRAYEC" 


4496 








4500 


LET 


BETA=ASN (SIN 


(A<F,9)*P 


I/1B0XS 


n clp-(lo+pd: 


) 


4510 


LET 


BETAi=ATN ( <R1 


/DIS)*TAN 


BETA) 






4S20 


LET 


DEC=DEC+1S0*BETA1/FI 


4530 


RETURN 




4990 








4995 








5000 


DATA 24,66, 90,62, ~ 


4,70,66,0 



4010 IF INT 
I) THEN GO " 
4020 RETURN 



LOGOS 



= INT 



H.KJOt 




DATOS INICIALES: Estos I 



- periado de 1 



ites de ejecutar i 



-1-1980 A(F,6) 

A(F,7.) 

i-sol A(F.8) 

idente A(F,9) 



^evi»»©*j 



PROGRAMAS 
ORIGINALES 
DE IMPORTACIC 
PARA 
SPE rx 




I The Express I HP? 

i imm. 



CODtNAML MAI 



GUIA PHACTICA - GUIA PRACTICA - GUIA PRACTICA 



Academia Matematicas 



CURSOS DE 
INPORMATICA 



-shIFKECT^ 



MUM *..* ,*-*.<! 

I jCTnTROL^ 



UIDOBEKCLUSIVi 



d SINCLAIR DRAGON fc 

S COMMODORE SPECTRAVIDEO i 

# SHARP AMSTRAD # 



CLUB Sinclair- de 

Hazte socio del 1" Club 
de Infermatica de Galicia 



■ 



F@irs©ft @.a. 



ourao VIDEO-SPECTRUM 



C'Canillas. ".- 



-0- COMPUTEST 

REPARAMOS 

atj 
SPECTRUM 

CON 

GARANTIA 



■aawiHi— 

l~ E=pE3J|— 

Reparacion de : 

• ZX Spectrum 

• IX 81 »ZX Printer 



ALSI 



comercial. S. A. 




SINCLAIR /ZX- SPECTRUM 

DISTRIBUTOR CESPEDES 

VALENCIA awomtms ilkimwicos 
C/ San Jacinto, 6 
Tfoo.37035B1 /3701724 " 



ZX 


SPECTRUM 

n BILBAO 


Program as 


libros, inforrnacion... 


H 


gesoo- 

niormalica, m.a. 


C 'lln 


. i94t 431 37 60 



■ 



JATENCIOW! 

USUARIOS 

DEL MICRODRIVE 

ZX SPECTRUM 

Ya disponemos del Plan 
Nadonal Contable Microdri 

* Archivo Plan Contable 
256 Cuentas 

* Archivo Asientos 
1024 Asientos 

* Extractos de Cuentas 



GUIA PRACTICA - GUIA PRACTICA - GUIA PRACTICA 







• 


CLUB DEL 


JUEGO 


CO MP R A - VENT A 
ZX 16-4BK 

Enlre aires: Space Raiders. Tims Gal 
Pilot. Tunal 3 D. Styk. ScuOa Di.e 


pSsiJescoiweauiMu pTo 


,.'„"".£ 


""■■ 


B«m™ 9 9 ' 3 " i ™ B3 "° C8 ' a '° 90 DB Pr °" 


«--«» 






Teiiions :,, .css, 


.,."«".'" *™»"s°'«!S°o». 



ZX SPECTRUM 




BASTRO 








RASTRO podras colrnqlr Ils prou 




en BASIC. RASTRO ta permlto 












COPY 








senuridad de Ins prcgramas !.ir 












RASTRO 1 200 Plas CO PV, 1200 


Plan 



/MICRO 



M 

w- 



HACEMOSFACIL 
LA INFORMATICA 

• SINCLAIR • SPECTRAVIDEO 

•COMMODORE • DRAGON 

• AMSTRAD* APPLE 

•SPERRY UNIVAC 




REFl 



Ordenadores personales Hard y Soil. 
• Cursos de Basic. 



ARTO 



HOBBVS-INFORMATICA 
SINCLAIR 
Todo el Hardware y Software nac 



SOMOS DIFERENTES 
ESCfllBENOS E INFORMATE 

ARTO r. Anali ■!.. :<AHCELONA-0801 



y 


MULTISYSTEM, 


y A. 


hi 


•fVc 


22E£S 


™T 






Tod 


slasnoveda 


Mat 


6r> 


Spec'tVa 


pec 


urn - Dragon - Gat 
■Oric -Commodor 
h S3 ALICANTE 


64 



MUY INTERESANTE 

PARA 

MAESTROS Y 

ALUMNOS 



s/n££<io 



TELE SAHT JUST 

C Mayor. 2 
Tel 371 7043 



SPECTRUM, COMMODORE, 
aunque no eslen artquinCns »n Espana 
Servicio para loda Espafia con 

Pidanos Informacion 



m\ CAMAFEO,, 





- "Prole, cha ira'do d ..mimcum- Y surgio dMULTIPLlC. Uudiael iiesbasadasenlaexperienciadesaHsa 

P'""-''"' pror'esor llevo el Spectrum a dase; se pi ,r |lllrtt . J,. |„ s .ilmnnos. DeMuies 10- 

Tal vez sea la novcdad. poo las da- Id cnscflfi a los chieu y Eu puso el do rcsulto seneillo: U elmj, deba- 
ses de recupcract^n han dejadodeser programa Previamcnlc lc\ din un.is ban i|uedarse (Prole, iesio si que nio- 

_ En el cofepo publa.j Miguel dc iras otros, todos pataroa por ei. Esta buscaban el castigo con la espcranza 

Dejarles una bora despuev del lu.rjm. dsB * recupefacion y, por otra, de A las dnco de la tarde, oiando cl 

escolar a repasai d tuso-pof-imo-es. rod,,,,., end uso de! programa a los restodetesmucbachosempreBdend 

tea eompllcada por la resist en cia que L.l emo inidal dio lugar a una se- el prafaot .il fa ok n , due i del 1 1- 

losdiicosolVeeian. (iVaya rollo, pro- gimda version del MULTIPLIC en la boraionodcCientusNaturales.don- 

fe, repasar la labia!). que se imrodujeron varias eorreetio- de se lu mslalado el ordenador! Una 



MULTIPLIC 

nuevas formas 

de ensenar 

deleitando 



Lejanos ya Ios ticmpos en que al «alumno Maginet» re- 
petia canturreando la labia del 7 hasta aprendcrsela de me- 
moria, un profesor de EGB de Parla (Madrid), «motiva» a 
sus alumnos con un programa de matematicas de SO propia 
elaboracion. Los chavalcs practiean mientras el maestro sa- 
ca conclusioncs y refucrza los aspectos mejorables. Los re- 
sultados pucden scr cspcctaculares. 







. 




s.nbu.n 


hieo se pone al teelado; introduce su 


no se pe 


mi ten mas de ires (alios. Si 


en sus cuadernos dc prob 


cnijs y el 












irimera serie dc 25 preguntas aleaLo- 


Lai de ire 




veili.i el tiempop.ir.i prepa 


areontro- 


j.,s dc l.i tabU de multinlicar. 


Si den 
Sfl'do, vui 




les.enrreBi.trabaps.ete. 


arealedio- 


Si no tiene ninglin l.illo; cl profir.i- 


initial, 1 


tsta un maximo de ires. 


sa v mom'mnia de repasar 


a labia, el 


ilrj serie mas. Todos, sin excepcion, 


Al tin. 




B aranti;-arui ; nin ; -^' ;: rde 


senle para 
i. El Spee- 


e deciden por hater una nueva serie. 


indicu q 


e wise al profesor, ouen !< 


iRimy el MULTIPLIC see 


tarjunde 


Si los fallos son cuatro o menos, el 




siipueMtu .ivi-aalsiguiente 


iraljajareonlosdncos.hjt 


indoles la 


iroi;ram.i le indii aijue hapi utr.i serie 


jlumnu 


ara qoe otrupe su lugar ante 


[area ajiradable. Cuando 


odos ban 


gua!. SilosC.il]u, r ,vi„d 1 ,u J lru,le 


el SpeU 


urn. 


termiiudo, se vueJve al me 


uysepul- 




Este in 


reduce sus dates y afronta la 


sa la option 2: Leetura de 


esullados. 


Jespues le somete a un.. aerie de 15 


primer.] 


erie de 25 preguntas... Enire- 


Alii apareeen para eada al 





- Patios loiales dc cada sl 

— Niimcro mas falladoym 
veces que necesito repasarlo. 

Secopianesiasdauiscn un 
mdividuales y, 

"' Para podi 



sigu: 



wrlos 



taria c 



ndo 



sistematna. Se [rata, no obstante, de 
rode un periodosuficicme para comprobar 

ijut, si bien no es una solution mita- 
ichas grosa (tampoco se prelcndia), si que 

eva- resuhados [Hits alyuiKu 



i labor dcaprcndi 

Lodos ' 






NEXT n • 

* -PRINT OVER O; INVERSE . 
20.5; CARLOS TRABAJ,DS 1934" 



a.™ i_i_ 



t5. 17: PAUSE 12 

8 PRINT AT 13. 7l '■■■■ — ■■■* pM 
— ■—■"; BEER .25.183 PAUSE 12s F 

3 1 NT AT 10,7{".1.1*,MI1J 11 "i BEEP 
25, 1 ?; PAUSE 12: PRINT AT 12. ?■ " 

rniiirinnrn r ■: beer .2 

9 BEEF .5.21: OVER Of PAUSE 1 



K 


10 LET c=0: DIM n<9): DIM n«'4 

15 PAUSE 2Ss CLS : PRINT AT 5 
i "M E N ' U"|:«T 6,6; " 


u 


a 1 urnnos " ; AT 1Q,6;"2- L==r ros 
tados"sAT 12.6;"?- Graoar dato 



la option) " 

16 LET w*"INKE¥*i IF CODE w*>5 
1 OR CODE Wl 1? THEN GO TO 16 

17 IF VAL w*=3 THEN GO TD 550 
IB IF VAL w$=2 THEN GO TO 560 
20 LET c=c+ls LET c6ntl=0 

25 CLS : PRINT AT 7. 7: "E3CR I BE 
TUS DATOS" 

30 BEER .25,25: INPUT FLASH 1 
}"EURSO"; PLASH 0:" (numera y EN 
TEP> ";n$(c. 1) 

31 IF CODE n*ic,li>56 OR CODE 
n»tc,lM« THEN GO TO 30 

35 BEEF .25,25: INPUT FLASH 1 
;"6RUP0"i. FLASH 0; ■' (A,B o C y E 



36 IF n*(c,2) '■■■'( 


■' AND n*<c,2) 


<->"a" AND n*£c.2>- : 


"B" AND n*Cc, 


2>' >"b a AND n*(c,2j 


■ >"C" AND n*< 


C , 21 :- " e " THEN GO 


TO 35 


40 BEEP .25.23s ' 




: "NOMBRE"; FLASH 0: 









etodoesdoble: 



s.1 ndo 



recbazada por Ios alumnos; y por c 
se reduce cl gasio dc iiempo por el 

Adcmas, y esto cs lo m.is irnpartan- 






.i do uni 






ENTER) ";L* 

41 IF LEN 1*<7 THEN GO TO 42 

42 GO TO 45 

43 LET nSic.4 TO 4+LEN 1*)=1SS: 
•GO TO 50 

45 LET n*<c,4 TO 10)=1*<1 TO 7 



: AT 7, 5; "Quando 



si resultai 



i equi- 



16,5; "Po 



AT 21 

4; "PULSfl ENTER PARA EMPEZftR" 
S3 IF INKEYS="" THEN' GO TO 55 
5? REM Series de 25 preguntas* 
60 LET terror-Hi: LET errorm=0: 



TO 9: LET i 



LET 

61 FOR I 
EXT n 

65 FOR n=l TO 23 

70 LET-a=INT (RND*: 
THEN GO TO 70 

75 LET b=INT (RND*: 
THEN 60 TO ^5 

BO CLS : PRINT AT J 



90 PRINT AT 10.19iresp: IF ri 
Dl: atb THEN GO TO 100 

95 PRINT AT 12,11; "CORREGTQ ! ' 



PINT i 



"-, BRIGHT 1; 



RIGHT 0: FLASI 



=25 THEN G 



USE 25: SO TO [ 






..MUITII'I.IC" a a\ las series. Supougamos que el c 
debe rcpjs.ir la labia, pero solo h 



trabajo y, en todo caso, con on ele- 
to habitual en su vidade adultos. 



71 tFa>5 THEN GOTO 70 



le bterese redudr Quiza" 5 segundos de mar^n par 
t deben preguntar respuesta le parezcsM escasos. El a; 



124 LET ns=9 

125 LET ~rrprm=r 
130 FOP, □=! TO ( 

149 REM totalis. 

150 LET terrcr=( 
1.55 FOR p=l TO ; 
160 LET ter:r'Qr=l 
165 NEXT p 



75 LET rtSfc,4-H3*corst 



177 IF terror=0 THEM 


LET m=0 


1BO LET n«(e:,7+8#con 


1>=STR$ ro 


IBS IF terror-. =■■* AMD 




THEN GO TO 200 




190 CL5 ; PRINT AT 2 


S;1S:AT 4, 






"itsrror; AT L,0: "El n 




e mas has fslladaes e 


";m;AT 9, 



191, PRINT AT 21, 4:"FULSA ENTER 
PARA ENPEZAR" 

192 IF INKEY*="" THEN GO TO 19 

193 LET con t 2=0 i 00 TO 250: REM 
repasa tsbls 

200 IF terror=0 THEN GO TO 220 
205 CLE : PRINT AT 3,5:"BI£N "; 

1*;AT S-^-S} "Solo has -ailada ";t 

errar:" rJe les 25 intsntos.": G 

SUP 5O0 
207 PRINT AT B,.S; "Vamos a hacer 
Otra ser;e.";AT 21 , 4: "PULSA ENT 

ER FARA EI"IF"E2AR" 

209 IF I-MKEV»« ,M1 THEN 50 TO 20 
B 

210 GO TO 6.0 



despues ENTEF'";AT 14,5} "SJ i 

avisa ai 'pro-Fesar." 
I INPUT -fS: IF -f*="s" OP i* = 
•HEN GO TO £0 
I PAUSE 3O0: GO TO 515 
■ ELS =- PRINT AT 2».10s"TftBLA 

: FOR n =l TD 10 



="" THEN GO TO 

NT AT 2.0; "Vamp 



THEN GO TO -300 




305 CLS : PRINT AT 


10,9:a:" par 


" ;b; " = ": PLOT £9 


34: DRAW IIS 


,0: DRAW 0. 14: Dp Ah 


-110,0: DRAW 


0,- 14: 50 SUB 1900 




310 PRINT AT 10, 1" 




p" >a*b THEN 50 TO 




315 FF INT AT 13, 11 


"CORRECTO' ": 


BEEP .5, 10; GO TO 






"ERROR": BEE 


P .75,-15: PRINT AT 


14,9:a:' ! par 


"5b:" = "s, 'BRIGHT 


.: FLASH lia* 


' b: LET errorr=error 


- + >: PAUSE 15 


0: LET n=n+l: PAUSE 


25: BRIGHT Q 


: FLASH 0: GO TO 30 


5 


325 PAUSE 25: NEXT 


n 


32? LET cont2=c=ant 




330 IF errorr=0 THEN GO TO 


332 IF erron-:=3 T 





glo es sendHo; modifique la PAUSA masiadas par 

250 J e la li„ tl , 1005. Y.l ^be que por dera insufki. 

cada 50 mas en la pausa, el programs linea. 
csperaia Ij respuesta un scyundo mas. 

Si opina que 25 prcyunLis son dc- 65 FOR n = 



l'oilJtndoenlu!;ardi-25t'l 



RIN 



la 



Jian sido correcias. 11 : SO SUB 

340 LET n* ic .=-8* t :nntl)=STR* cq 
nt2: PRINT AT Sl,Oi"Vam ras a hace 
r otra sens coma Is del 

printipio. ";flT 21 , a ; "PULS3A ENTE 
R PARA EMPEZflR" 

341 IF INKEYS=" " THEN GO TO 34 

345 GO TO 60 

350 CLS : print AT 3, Bj "NO HA E 

STADO MAL":AT ?,f. : "Solo h-= i-enl 



352 GO to 3- 
360 CLS : PRINT AT 3.0: 
SABES BIEN LA TABL-^ DEL 



GO SUB 500 
AUN NO 



380 IF contl>=3' THEN GO TO 3B6 
333 LET n*(c, l0+8*eantl l="F" 

3B6 PAUSE =.00: GO tij r-- 15 



7: "ESCRIBE 



54=" CL5 : PRINT AT 

TUS DATOS": GO TO ' 

550 SAVE "nultiplic" LINE i 

555 GO TO 9999 

560 FOR n=l TO c 

565 CLS : PRINT AT 1 ,0; "CURS-AL 
UM. la.Ser 2a.Ser 3a. S" : PLOT 
0,157; DRAW 80.0: PLOT 3B.157: D 
RAW 54.0: PLOT 152.157: DRAW 54 
O: PLOT 216.157: DRAW 34,0 



T 21,0; "PULSE ENTER PARA VE 

O ALUMNO" 
561 IF INKEY*="" THEN GO ' 



MAS ALUMNOS": PAUSE 15ol 



1005 PAUSE 250 

l " 1 '- ' ET Kt=INt:.EYi : IF ;i = ..„ rHE 

N GO TO 1020 

1011 IF CODE KS>57 OR CODE K*<*8 
THEN GO TO 1005 

1012 PRINT AT 10.19;K*i IF A*B>= 
10 THEN GO TO 1014 

1013 LET JS="": GO TO 1016 

1014 PAUSE 250: LET J5=INKEYS: I 
F J«="« THEN GO TO 1020 

1015 IF CODE J*:>57 OR CODE J$-'4S 
THEN bO TO 1014: PRINT AT 10.2 



9 LET 



l=VflL 



l+JS): RETUR 



QUIER OTRfi TECLfl" 



Ahora tu Spectrum 
esunChollo. 



rs ~C 




Diviertete consiguiendo 
regalos tan estupendos 
como los de la "tele" 



-Sr- 



Llega la diversion dekma 

iPartictoajL 




Concursa en casa con los protagonistas de la "tele" 

Con tu Spectrum (no importa el modelo, 16 6 46 K.) y la cinta del "Un, Dos, Tres..." 

podros conseguir diversion sin limites junto con los luyos. 

Por primero vez se le otrece un concurso participative para microoraenador, 

donde puden competir hasto tres parejas Y con lo novedad de que el juego sera 

cado vez distinto, pues siempre que conectes lo cinta al Spectrum, 

te ofrecera diterenles altemativas. 



UN JUEGO PARA DISFRUTAR CON TUS AMIGOS 

Bigote Arrocet te invito en persona a un concurso exactamente Igual que el de la'Tele". 

Bosla con que pongos la cinta en tu cassette y el te ira dando las instrucciones 

de este nuevo y diterenie juego. Puedes conseguir premios tan sofprendentes 

como los del programa de Chicho y, por supuesto; tombien tiene Ctiolfo. 

1 de cada 3 cassetes contiene iPREMIO DIRECTO!: 

Viajes, moto-vespas, sinletizadores, microordenadores 
Spectrum, QL, un monton de premios mas, y el gran Chollo. 





TRES MILLONES DE PESETAS 

en premios que puedes conseguir participando en la gran final. 
No pierdas mas tiempo, compra la cinta del "Un, Dos; Tres! 

Patrocinadores del concurso: 



— Informaclon y venta exclusiw en ha led de Concesionarios Autorizados INV 

iBusca tu Chollo! 



Libros 



Asi Se empieza. , S UIJ >' tomplcmento a los 


Infroc/uccion a (os 


lunuaiia 411L 11,1111 iuj 

quipos, r.itilitando la 


ordenadores. 


Peter Latterly 


tili/acibiidclasdistititas 
nidades del sistema. 


Ed. Gustavo Gili 


Pags. 204 Esus cu=tion« son 

desarrtill.iil.is ,1 lo larpi de 






Autodcfinidu como 




una introduction .1 los 
ordenadores, esse libra 


tcir. los planleamienlos 




esftl re come n dado 


wsados en el esmdio de 


especial me 11 re para todas 


as taracterlMicas basitas 


aquellas peisonas que 


L- una l u ii riiru ration 


piensan comprarse un 


standard. 


ordenador personal y 




necesitan inrbrmadon 


Comienza ton una 


previa sobrc el pcqueiia introduction 


funcionamiento y 




caraaeristicas de los 


esarrollo de la 




eciuilo.ni.i de los 


ordenadores, desde la 


Tambien sera de 


reation de la pnmera 


gran uiilidad para 




un ordenador no ban *, 




pasado de ia fase de 




principianies. 

Este libro, intluido en 


ASISE 


la .-election "Su 
Ordenador Personal", 


EMPIEZA 


introduce al lector en un 


*fc 


analtsis bfcico de "casi" 


^r 


todo lo que es netesano 


M 


saber sobrc ordenadores a 


_*■ 



Explorando el 
Sinclair QL Una 
introduction al 
Superbasic. 
Andrew Nelson 
Ed. Ra-Ma 
Pags. 125 
P.V.P. 1.400 ptas 




objetivos: por una parte 

serie dc dudas y 
problemas que pueden 
surgirle a los lectores/ 
usuarios pnncipiantts 
sobre la naturalcza y 
c.ipiuidad de los 
ordenadores personales 
(ique cs un ordenador?; 
(c6mo utilizarlo?; tcemo 
funciona?; tcbmo ha dc 
piogramarse.', etc.) y, por 
otra, prelcnde servir de 




comic nzan a inlcgrarse 

| Propm'ciona ll'o?™ **" 
conocimieulos basicos 
sobrc el iumionamiento 
y caracterlsticflu estandard 
de los ordenadores 
personales, sin necesidad 

previos de intbrmatica. 

y dibujos ayudau a la 
compression del texto. 




r 






maquina basada en 
valvulas termoibnitas, 
hasta e! nacimiento del 
actual ordenador 
personal, dcsairollado J 


aplicacibn 

BASIC, dc 

Los prin 

son basica 


de pioyramas 
i^uajc Super 
que dispone. 

no a los 

e 

es del QL. 



Explican, it'.- un modo 

.in'jer'ciliAirVfVjs 
onexiones cnire l.ls 
ifercntes imidades de l.i 
liquina y tuales son las 

mportarites del icd.ido. 

nteresante puesto que la 
eelas de funeiOfiM M 
Ql rienen diverse.! 
etidos, rtecesarios 
el desarrollo v 
iirion de los 
. ...... Estos 

-i'M.1 luyen 



mjKnml ZX S P edrum 

e los tonceptos, 4p/icaciones para 

tcturas, | a casa y f os 

^'"i^bamc* pequenos 

rmiwn coaocei que negocios. 

te nuevo lenguaje de C/lris Callender 

sus posibilididei Ed. Noray. 

v I. si Pags. 100. 

iert , || „,ii [c 1 1, ' 'Palling yuui y.X 



1 



sobre los modus graficos 

d* p.intall.i (el Ql al igu.il 

qui- el Spcttrum pi>SL-i- 

dos modes; h.ij.i 
esolucion v ,ih,i 
esolud6fi)i senalando 
demis, los colores que 

pueden generar en 

palilalia. Una novedad es 
' icloj de liempo real, al 

cualse accede a traves lei 
larido DATES. 

.•s fL-M.niiL-s t-aniuilos 
in dedicadosal 
lenguaje de pfogramacioji 
Super BASIC. 

(Recordemosqueesie 
lenguaje fac ereado i»>i 
los diwnadores del Cj 
speciaimenn para rata 
11... |u. ii.i). El Super 
BASIC se presents como 
un lenguaje dcsarrollado 
.i p.tnirdd liASICc 
ijicbye c.is. todos los 
.andosyestracturas 



MUI-...IUU.I..S le confiere 
mayor capacidad 
realizar programas 



ordenador. 

IVmltiiii 




SPECTRUM" 



d programa de 
contabilidad casera, 
organizarse su vida ti 
l.i agcml.1 v consulm 
nuraeros ds telcTono 
el lisiin iddoima". 



GMNSORTEO MX 



Participa y gana este magnifico equipo de yilta-Fidelidad 




jApresurate! lo unico que tienes que hocer para entrar 
en este fabuloso sorteo es rellenar, cortary enviareste cupon 
de respuesta hoy mismo. jNo pierdas tiempo! 



BASES DEL SORTEO 



CUPON DE RESPUESTA 

Recorta esle cupon y envialo en un sobre debidamente franqueado a: 

PUBLINFORMATICA S.A. 

Dto. de Sorteos 

C/ Bravo Murillo, 377 - 5.3 A 28020-MADR1D 2 

N ombre _ 







-a» 










Prmiin^in 




CURSO DE 

FORTH 



(TERCERA PARTE) 



En los dos oipimlos ameriorcs de Butles 

<■ h.m,'!. del l-OKIIl v Jt sus <om H.m^n,<:,l, .,-, I 

■ .,■ „i s irmcipa s cl Mack y Us "'-"- IJIJ H"-<= no& pcrmitc n 



(.ctonoie Jl cmpeaai el bucle Es 



distinicis b-i li ■■. h|ii\ v hi:i K - iiiii.h 
aondles. Los bucles riius son aque- „ . 



puLi.lt p.nci (.■!■( liiki I .il priitcipiosj se 
le compara ton el BASIC. Pera con 
un pocodeprjctka secomprenden y 

alguuos Jc Ins tipos de control 
que se pueden ejercer spbre cl tliijii 
del pfograra-a y mis disiint.is aplica- 



• 


"«*«•««• 






clelimitador initial 




»*.«» 


dehmitador llnal 






»■ 



En el l : OR1ll lo- bucks Hjos s<- 
;sttuciutaDO...LOOP 



ros que se deposrtan en una pil.i espe- 
cial denominada stock de rctomo to- 
lalmenlc independieiile y sepamda 
de l,i pila normal que basta ahcra 
labjmosusjiKlo.Ambasi-stJiisil 



Sue una es la pila de los platos hon- 
□s y Ij otra es la de los platos llanos. 
Cuando nuesti'ci camarero recibe 
la insrruccion DO... LOOP realize 

mos a vera continuation. Suponga- 
mos que definimos uiu palabra (co- 
mo jprcndimos en el capituto ante- 
rior) llamada REPITE del siguicme 



ejeeu'le REPITE, hara el s 
proceso (rigura 2): En prim 
coge cl niimcro lOyloalm, 
elstef*deretomo,Viend( 

del anterior (recuerdt- que c 




jeurartododbloque 
(KiigiieadcUntcpui 
los dos numeros y M encomrarse el oue se nos in.pnme "ZX"di« vcce 
DO, se eogc el uumero situado en la despues "TERMINE" (figura 



parte superior del start de retomo,si estemismoni 

son igualcs se siguc con las inslrue- Si son lyu.ik-. 
cones despues del LOOP, si el mi- contrario lov 






Esla cstruaur.! es snnd.i. a I [OR... gundoelei 

ie csia deb.n.- se vudve a ejttuiar NEXT del BASIC como va se habnin does el sin 

do cl bloquc desdc cl DO. inere- podido darcucnla los uslianos de esc cc cs iridji 

entando rraevamente el numero lenguaje, pero si usted esdeesic gru- precede ( 



STACK 


FTflTTKA 


nn 










ffl 


> 


LOipP — 
0-TOP?) 

) 


y NCr ■ — J 

>a " + ."TERMINE" 

(TERMINE J 


S T0B ES 


PANTALLA 


I'ANTALLA 





■<+•■ unidofsinespaciosi 
la palabra LOOP.elSpe. 
que el niimero es para n 
slack norm.il y no el iuc 
volvemos .1 crear REP1TE, pe 
vc£ poncmos: 

;REP!TE IOODO."ZX"2+1 
"TERMINE"; 



loe 



Solo sc 110s impMinii 


i cinco veces 


la palabra "ZX ya que 


foacreraerrta- 


mos per 2. adoptando 


ucesivamen- 


te los siguientes valore 




lO,AHlegara10,eomc 


•sigualalva- 


lor di)] Imiite, el progra 


11a sigueade- 


lante imprimiendo 


TERMINE" 


For tanto solo se ejee 


ta el bloquc 


cinco vcees imprimiei 


do "ZX" una 


vez por cada pasada. 




En la figura 4 podem 


>s ver el orga 


nigrama dc la csln. 


ctura DO.. 


LOOP en su caso mis 


general, 






nos permiten hallard cuadrado 
nprimirlo como vimos en los 
Itulos anieriores. Cuando se eje- 
i el LOOP se comprueba si el 
ire es igual al COB ta dor y se proce- 



el indi- 



c un DO... LOOP, per 
, casns es necesario tra 
o (res buclcs ejecutan. 



DO... LOOP, 110s sacara una topia 
del contador (indiee) en la pila del 

el numcro (figura 5). Dc cstc modo 
podemos.. rear la palabra CUADRA- 
DO que nos halla el cuadrado de los 
10 primeros numeros. 



scgundo.ysiporullin 
tan dentro de un ten 
«K» hara lo mismo c 



., la palabra 



del contador det 



TOR 1 = 1 TO 10... bloquc princi- 
pal,., NEXT I 

En el bloquc principal podemos uii- 
lizar la variable 1 que variara de 1 a 
10 con cada ciclo. Para poder hater 
lo mismo en FORTH debemos mili- 
ar una palabra especial: "1", si pone- 
mos esta palabra dentro de un butle 



: CUADRADO 10 DO 1 DUF, 


LOOP; 






El proci. 


socs sen 


uTo (figura 6); al 




cjecutar 


e la palabra, se 




li/rfctde 


retomolosvalo- 


res 10 < 1 1 11 


It) y (t 


onlador). Cuan- 




1 e! DO c 


contadorsein- 




:n 1 (me 


emento por de- 



, Auuque es posible el uso de 
:tres bucks situados una den- 
Otro, no hay posibilidad de 



[dainniiios En la figura 8a 
en la palabra MUESTRA: 



: M U ESTRA J DO 1 3 1 DO 23 20 
DO I j K... CR LOOP LOOP LOOP; 



Con esta palabra podemos ver ci 
mo van variando los indices del a 
elcxtemo.de Ha 13 el dcemnedio 
de 21 a 23 el interne fliguni 8b). 

Estructuras condicionales 










T 




run*** 






( 


1 






41 








-'ii 




■ii 




12 




V 




12 


7 


5 


•, 


5 


6 


z:- 


5 


2i 


5 


4 


'<■■> 


1 


44 


10 


125 


10 


125 




stacKiM 
retorno 




•r,;: 




retorno 




";;: 






H,Sv 


!',m 


i:.u<.(i 


ope 


ru i in 


„U,,KTO 




to^S 1 


,ue 


!os do 


mi DROP par 

ru 9). 


.qoiw 


■1 ct 


o. ili^u 


"0 =' 
ilu'siini 
daden." 
vicndo 


o di 
fill so 


tin to de 


vicn 


!f.V"va 
, devd 


Las ti 


sope 

V "=" 


()|u-[,ir 


sobr 
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